      SUBROUTINE iau_XY06 ( DATE1, DATE2, X, Y )
*+
*  - - - - - - - - -
*   i a u _ X Y 0 6
*  - - - - - - - - -
*
*  X,Y coordinates of celestial intermediate pole from series based
*  on IAU 2006 precession and IAU 2000A nutation.
*
*  This routine is part of the International Astronomical Union's
*  SOFA (Standards of Fundamental Astronomy) software collection.
*
*  Status:  canonical model.
*
*  Given:
*     DATE1,DATE2    d       TT as a 2-part Julian Date (Note 1)
*
*  Returned:
*     X,Y            d       CIP X,Y coordinates (Note 2)
*
*  Notes:
*
*  1) The TT date DATE1+DATE2 is a Julian Date, apportioned in any
*     convenient way between the two arguments.  For example,
*     JD(TT)=2450123.7 could be expressed in any of these ways,
*     among others:
*
*            DATE1          DATE2
*
*         2450123.7D0        0D0        (JD method)
*          2451545D0      -1421.3D0     (J2000 method)
*         2400000.5D0     50123.2D0     (MJD method)
*         2450123.5D0       0.2D0       (date & time method)
*
*     The JD method is the most natural and convenient to use in
*     cases where the loss of several decimal digits of resolution
*     is acceptable.  The J2000 method is best matched to the way
*     the argument is handled internally and will deliver the
*     optimum resolution.  The MJD method and the date & time methods
*     are both good compromises between resolution and convenience.
*
*  2) The X,Y coordinates are those of the unit vector towards the
*     celestial intermediate pole.  They represent the combined effects
*     of frame bias, precession and nutation.
*
*  3) The fundamental arguments used are as adopted in IERS Conventions
*     (2003) and are from Simon et al. (1994) and Souchay et al. (1999).
*
*  4) This is an alternative to the angles-based method, via the SOFA
*     routine iau_FW2XY and as used in iau_XYS06A for example.  The
*     two methods agree at the 1 microarcsecond level (at present),
*     a negligible amount compared with the intrinsic accuracy of the
*     models.  However, it would be unwise to mix the two methods
*     (angles-based and series-based) in a single application.
*
*  Called:
*     iau_FAL03    mean anomaly of the Moon
*     iau_FALP03   mean anomaly of the Sun
*     iau_FAF03    mean argument of the latitude of the Moon
*     iau_FAD03    mean elongation of the Moon from the Sun
*     iau_FAOM03   mean longitude of the Moon's ascending node
*     iau_FAME03   mean longitude of Mercury
*     iau_FAVE03   mean longitude of Venus
*     iau_FAE03    mean longitude of Earth
*     iau_FAMA03   mean longitude of Mars
*     iau_FAJU03   mean longitude of Jupiter
*     iau_FASA03   mean longitude of Saturn
*     iau_FAUR03   mean longitude of Uranus
*     iau_FANE03   mean longitude of Neptune
*     iau_FAPA03   general accumulated precession in longitude
*
*  References:
*
*     Capitaine, N., Wallace, P.T. & Chapront, J., 2003,
*     Astron.Astrophys., 412, 567
*
*     Capitaine, N. & Wallace, P.T., 2006, Astron.Astrophys. 450, 855
*
*     McCarthy, D. D., Petit, G. (eds.), 2004, IERS Conventions (2003),
*     IERS Technical Note No. 32, BKG
*
*     Simon, J.L., Bretagnon, P., Chapront, J., Chapront-Touze, M.,
*     Francou, G. & Laskar, J., Astron.Astrophys., 1994, 282, 663
*
*     Souchay, J., Loysel, B., Kinoshita, H., Folgueira, M., 1999,
*     Astron.Astrophys.Supp.Ser. 135, 111
*
*     Wallace, P.T. & Capitaine, N., 2006, Astron.Astrophys. 459, 981
*
*  This revision:  2013 December 2
*
*  SOFA release 2015-02-09
*
*  Copyright (C) 2015 IAU SOFA Board.  See notes at end.
*
*-----------------------------------------------------------------------

      IMPLICIT NONE

      DOUBLE PRECISION DATE1, DATE2, X, Y

* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

*  Arcseconds to radians
      DOUBLE PRECISION DAS2R
      PARAMETER ( DAS2R = 4.848136811095359935899141D-6 )

*  Reference epoch (J2000.0), JD
      DOUBLE PRECISION DJ00
      PARAMETER ( DJ00 = 2451545D0 )

*  Days per Julian century
      DOUBLE PRECISION DJC
      PARAMETER ( DJC = 36525D0 )

*  Maximum power of T in the polynomials for X and Y
      INTEGER MAXPT
      PARAMETER ( MAXPT = 5 )

*  Numbers of frequencies:  luni-solar, planetary, total
      INTEGER NFLS, NFPL, NF
      PARAMETER ( NFLS = 653, NFPL = 656, NF = NFLS+NFPL )

*  Number of amplitude coefficients
      INTEGER NA
      PARAMETER ( NA = 4755 )

*  Polynomial coefficients
      DOUBLE PRECISION XYP(0:MAXPT,0:1)

*  Fundamental-argument multipliers:  luni-solar and planetary terms
      INTEGER MFALS(5,NFLS), MFAPL(14,NFPL)

*  Pointers into amplitudes array, one pointer per frequency
      INTEGER NC(NF)

*  Amplitude coefficients (microarcsec);  indexed using the NC array
      DOUBLE PRECISION A(NA)

*  Amplitude usage
      INTEGER JAXY(0:MAXPT*4-1), JASC(0:MAXPT*4-1), JAPT(0:MAXPT*4-1)

*  Miscellaneous
      DOUBLE PRECISION T, W, PT(0:MAXPT), FA(14), XYPR(0:1), XYPL(0:1),
     :                 XYLS(0:1), ARG, SC(0:1)
      INTEGER JPT, I, J, JXY, IALAST, IFREQ, M, IA, JSC

*  Functions
      DOUBLE PRECISION iau_FAL03, iau_FALP03, iau_FAF03, iau_FAD03,
     :                 iau_FAOM03, iau_FAME03, iau_FAVE03, iau_FAE03,
     :                 iau_FAMA03, iau_FAJU03, iau_FASA03, iau_FAUR03,
     :                 iau_FANE03, iau_FAPA03

*  Polynomial coefficients (arcsec).
      DATA ((XYP(I,JXY),I=0,MAXPT),JXY=0,1) /
     :
     :             -0.016617     D0,
     :          +2004.191898     D0,
     :             -0.4297829    D0,
     :             -0.19861834   D0,
     :             +0.000007578  D0,
     :             +0.0000059285 D0,
     :
     :             -0.006951     D0,
     :             -0.025896     D0,
     :            -22.4072747    D0,
     :             +0.00190059   D0,
     :             +0.001112526  D0,
     :             +0.0000001358 D0 /

*  Fundamental-argument multipliers:  luni-solar terms.
      DATA ((MFALS(I,J),I=1,5),J=1,10) /
     :   0,  0,  0,  0,  1,
     :   0,  0,  2, -2,  2,
     :   0,  0,  2,  0,  2,
     :   0,  0,  0,  0,  2,
     :   0,  1,  0,  0,  0,
     :   0,  1,  2, -2,  2,
     :   1,  0,  0,  0,  0,
     :   0,  0,  2,  0,  1,
     :   1,  0,  2,  0,  2,
     :   0,  1, -2,  2, -2 /
      DATA ((MFALS(I,J),I=1,5),J=11,20) /
     :   0,  0,  2, -2,  1,
     :   1,  0, -2,  0, -2,
     :   1,  0,  0, -2,  0,
     :   1,  0,  0,  0,  1,
     :   1,  0,  0,  0, -1,
     :   1,  0, -2, -2, -2,
     :   1,  0,  2,  0,  1,
     :   2,  0, -2,  0, -1,
     :   0,  0,  0,  2,  0,
     :   0,  0,  2,  2,  2 /
      DATA ((MFALS(I,J),I=1,5),J=21,30) /
     :   2,  0,  0, -2,  0,
     :   0,  2, -2,  2, -2,
     :   2,  0,  2,  0,  2,
     :   1,  0,  2, -2,  2,
     :   1,  0, -2,  0, -1,
     :   2,  0,  0,  0,  0,
     :   0,  0,  2,  0,  0,
     :   0,  1,  0,  0,  1,
     :   1,  0,  0, -2, -1,
     :   0,  2,  2, -2,  2 /
      DATA ((MFALS(I,J),I=1,5),J=31,40) /
     :   0,  0,  2, -2,  0,
     :   1,  0,  0, -2,  1,
     :   0,  1,  0,  0, -1,
     :   0,  2,  0,  0,  0,
     :   1,  0, -2, -2, -1,
     :   1,  0,  2,  2,  2,
     :   0,  1,  2,  0,  2,
     :   2,  0, -2,  0,  0,
     :   0,  0,  2,  2,  1,
     :   0,  1, -2,  0, -2 /
      DATA ((MFALS(I,J),I=1,5),J=41,50) /
     :   0,  0,  0,  2,  1,
     :   1,  0,  2, -2,  1,
     :   2,  0,  0, -2, -1,
     :   2,  0,  2, -2,  2,
     :   2,  0,  2,  0,  1,
     :   0,  0,  0,  2, -1,
     :   0,  1, -2,  2, -1,
     :   1,  1,  0, -2,  0,
     :   2,  0,  0, -2,  1,
     :   1,  0,  0,  2,  0 /
      DATA ((MFALS(I,J),I=1,5),J=51,60) /
     :   0,  1,  2, -2,  1,
     :   1, -1,  0,  0,  0,
     :   0,  1, -1,  1, -1,
     :   2,  0, -2,  0, -2,
     :   0,  1,  0, -2,  0,
     :   1,  0,  0, -1,  0,
     :   3,  0,  2,  0,  2,
     :   0,  0,  0,  1,  0,
     :   1, -1,  2,  0,  2,
     :   1,  1, -2, -2, -2 /
      DATA ((MFALS(I,J),I=1,5),J=61,70) /
     :   1,  0, -2,  0,  0,
     :   2,  0,  0,  0, -1,
     :   0,  1, -2, -2, -2,
     :   1,  1,  2,  0,  2,
     :   2,  0,  0,  0,  1,
     :   1,  1,  0,  0,  0,
     :   1,  0, -2,  2, -1,
     :   1,  0,  2,  0,  0,
     :   1, -1,  0, -1,  0,
     :   1,  0,  0,  0,  2 /
      DATA ((MFALS(I,J),I=1,5),J=71,80) /
     :   1,  0, -1,  0, -1,
     :   0,  0,  2,  1,  2,
     :   1,  0, -2, -4, -2,
     :   1, -1,  0, -1, -1,
     :   1,  0,  2,  2,  1,
     :   0,  2, -2,  2, -1,
     :   1,  0,  0,  0, -2,
     :   2,  0, -2, -2, -2,
     :   1,  1,  2, -2,  2,
     :   2,  0, -2, -4, -2 /
      DATA ((MFALS(I,J),I=1,5),J=81,90) /
     :   1,  0, -4,  0, -2,
     :   2,  0,  2, -2,  1,
     :   1,  0,  0, -1, -1,
     :   2,  0,  2,  2,  2,
     :   3,  0,  0,  0,  0,
     :   1,  0,  0,  2,  1,
     :   0,  0,  2, -2, -1,
     :   3,  0,  2, -2,  2,
     :   0,  0,  4, -2,  2,
     :   1,  0,  0, -4,  0 /
      DATA ((MFALS(I,J),I=1,5),J=91,100) /
     :   0,  1,  2,  0,  1,
     :   2,  0,  0, -4,  0,
     :   1,  1,  0, -2, -1,
     :   2,  0, -2,  0,  1,
     :   0,  0,  2,  0, -1,
     :   0,  1, -2,  0, -1,
     :   0,  1,  0,  0,  2,
     :   0,  0,  2, -1,  2,
     :   0,  0,  2,  4,  2,
     :   2,  1,  0, -2,  0 /
      DATA ((MFALS(I,J),I=1,5),J=101,110) /
     :   1,  1,  0, -2,  1,
     :   1, -1,  0, -2,  0,
     :   1, -1,  0, -1, -2,
     :   1, -1,  0,  0,  1,
     :   0,  1, -2,  2,  0,
     :   0,  1,  0,  0, -2,
     :   1, -1,  2,  2,  2,
     :   1,  0,  0,  2, -1,
     :   1, -1, -2, -2, -2,
     :   3,  0,  2,  0,  1 /
      DATA ((MFALS(I,J),I=1,5),J=111,120) /
     :   0,  1,  2,  2,  2,
     :   1,  0,  2, -2,  0,
     :   1,  1, -2, -2, -1,
     :   1,  0,  2, -4,  1,
     :   0,  1, -2, -2, -1,
     :   2, -1,  2,  0,  2,
     :   0,  0,  0,  2,  2,
     :   1, -1,  2,  0,  1,
     :   1, -1, -2,  0, -2,
     :   0,  1,  0,  2,  0 /
      DATA ((MFALS(I,J),I=1,5),J=121,130) /
     :   0,  1,  2, -2,  0,
     :   0,  0,  0,  1,  1,
     :   1,  0, -2, -2,  0,
     :   0,  3,  2, -2,  2,
     :   2,  1,  2,  0,  2,
     :   1,  1,  0,  0,  1,
     :   2,  0,  0,  2,  0,
     :   1,  1,  2,  0,  1,
     :   1,  0,  0, -2, -2,
     :   1,  0, -2,  2,  0 /
      DATA ((MFALS(I,J),I=1,5),J=131,140) /
     :   1,  0, -1,  0, -2,
     :   0,  1,  0, -2,  1,
     :   0,  1,  0,  1,  0,
     :   0,  0,  0,  1, -1,
     :   1,  0, -2,  2, -2,
     :   1, -1,  0,  0, -1,
     :   0,  0,  0,  4,  0,
     :   1, -1,  0,  2,  0,
     :   1,  0,  2,  1,  2,
     :   1,  0,  2, -1,  2 /
      DATA ((MFALS(I,J),I=1,5),J=141,150) /
     :   0,  0,  2,  1,  1,
     :   1,  0,  0, -2,  2,
     :   1,  0, -2,  0,  1,
     :   1,  0, -2, -4, -1,
     :   0,  0,  2,  2,  0,
     :   1,  1,  2, -2,  1,
     :   1,  0, -2,  1, -1,
     :   0,  0,  1,  0,  1,
     :   2,  0, -2, -2, -1,
     :   4,  0,  2,  0,  2 /
      DATA ((MFALS(I,J),I=1,5),J=151,160) /
     :   2, -1,  0,  0,  0,
     :   2,  1,  2, -2,  2,
     :   0,  1,  2,  1,  2,
     :   1,  0,  4, -2,  2,
     :   1,  1,  0,  0, -1,
     :   2,  0,  2,  0,  0,
     :   2,  0, -2, -4, -1,
     :   1,  0, -1,  0,  0,
     :   1,  0,  0,  1,  0,
     :   0,  1,  0,  2,  1 /
      DATA ((MFALS(I,J),I=1,5),J=161,170) /
     :   1,  0, -4,  0, -1,
     :   1,  0,  0, -4, -1,
     :   2,  0,  2,  2,  1,
     :   2,  1,  0,  0,  0,
     :   0,  0,  2, -3,  2,
     :   1,  2,  0, -2,  0,
     :   0,  3,  0,  0,  0,
     :   0,  0,  4,  0,  2,
     :   0,  0,  2, -4,  1,
     :   2,  0,  0, -2, -2 /
      DATA ((MFALS(I,J),I=1,5),J=171,180) /
     :   1,  1, -2, -4, -2,
     :   0,  1,  0, -2, -1,
     :   0,  0,  0,  4,  1,
     :   3,  0,  2, -2,  1,
     :   1,  0,  2,  4,  2,
     :   1,  1, -2,  0, -2,
     :   0,  0,  4, -2,  1,
     :   2, -2,  0, -2,  0,
     :   2,  1,  0, -2, -1,
     :   0,  2,  0, -2,  0 /
      DATA ((MFALS(I,J),I=1,5),J=181,190) /
     :   1,  0,  0, -1,  1,
     :   1,  1,  2,  2,  2,
     :   3,  0,  0,  0, -1,
     :   2,  0,  0, -4, -1,
     :   3,  0,  2,  2,  2,
     :   0,  0,  2,  4,  1,
     :   0,  2, -2, -2, -2,
     :   1, -1,  0, -2, -1,
     :   0,  0,  2, -1,  1,
     :   2,  0,  0,  2,  1 /
      DATA ((MFALS(I,J),I=1,5),J=191,200) /
     :   1, -1, -2,  2, -1,
     :   0,  0,  0,  2, -2,
     :   2,  0,  0, -4,  1,
     :   1,  0,  0, -4,  1,
     :   2,  0,  2, -4,  1,
     :   4,  0,  2, -2,  2,
     :   2,  1, -2,  0, -1,
     :   2,  1, -2, -4, -2,
     :   3,  0,  0, -4,  0,
     :   1, -1,  2,  2,  1 /
      DATA ((MFALS(I,J),I=1,5),J=201,210) /
     :   1, -1, -2,  0, -1,
     :   0,  2,  0,  0,  1,
     :   1,  2, -2, -2, -2,
     :   1,  1,  0, -4,  0,
     :   2,  0,  0, -2,  2,
     :   0,  2,  2, -2,  1,
     :   1,  0,  2,  0, -1,
     :   2,  1,  0, -2,  1,
     :   2, -1, -2,  0, -1,
     :   1, -1, -2, -2, -1 /
      DATA ((MFALS(I,J),I=1,5),J=211,220) /
     :   0,  1, -2,  1, -2,
     :   1,  0, -4,  2, -2,
     :   0,  1,  2,  2,  1,
     :   3,  0,  0,  0,  1,
     :   2, -1,  2,  2,  2,
     :   0,  1, -2, -4, -2,
     :   1,  0, -2, -3, -2,
     :   2,  0,  0,  0,  2,
     :   1, -1,  0, -2, -2,
     :   2,  0, -2,  2, -1 /
      DATA ((MFALS(I,J),I=1,5),J=221,230) /
     :   0,  2, -2,  0, -2,
     :   3,  0, -2,  0, -1,
     :   2, -1,  2,  0,  1,
     :   1,  0, -2, -1, -2,
     :   0,  0,  2,  0,  3,
     :   2,  0, -4,  0, -2,
     :   2,  1,  0, -4,  0,
     :   1,  1, -2,  1, -1,
     :   0,  2,  2,  0,  2,
     :   1, -1,  2, -2,  2 /
      DATA ((MFALS(I,J),I=1,5),J=231,240) /
     :   1, -1,  0, -2,  1,
     :   2,  1,  2,  0,  1,
     :   1,  0,  2, -4,  2,
     :   1,  1, -2,  0, -1,
     :   1,  1,  0,  2,  0,
     :   1,  0,  0, -3,  0,
     :   2,  0,  2, -1,  2,
     :   0,  2,  0,  0, -1,
     :   2, -1,  0, -2,  0,
     :   4,  0,  0,  0,  0 /
      DATA ((MFALS(I,J),I=1,5),J=241,250) /
     :   2,  1, -2, -2, -2,
     :   0,  2, -2,  2,  0,
     :   1,  0,  2,  1,  1,
     :   1,  0, -1,  0, -3,
     :   3, -1,  2,  0,  2,
     :   2,  0,  2, -2,  0,
     :   1, -2,  0,  0,  0,
     :   2,  0,  0,  0, -2,
     :   1,  0,  0,  4,  0,
     :   0,  1,  0,  1,  1 /
      DATA ((MFALS(I,J),I=1,5),J=251,260) /
     :   1,  0,  2,  2,  0,
     :   0,  1,  0,  2, -1,
     :   0,  1,  0,  1, -1,
     :   0,  0,  2, -2,  3,
     :   3,  1,  2,  0,  2,
     :   1,  1,  2,  1,  2,
     :   1,  1, -2,  2, -1,
     :   2, -1,  2, -2,  2,
     :   1, -2,  2,  0,  2,
     :   1,  0,  2, -4,  0 /
      DATA ((MFALS(I,J),I=1,5),J=261,270) /
     :   0,  0,  1,  0,  0,
     :   1,  0,  2, -3,  1,
     :   1, -2,  0, -2,  0,
     :   2,  0,  0,  2, -1,
     :   1,  1,  2, -4,  1,
     :   4,  0,  2,  0,  1,
     :   0,  1,  2,  1,  1,
     :   1,  2,  2, -2,  2,
     :   2,  0,  2,  1,  2,
     :   2,  1,  2, -2,  1 /
      DATA ((MFALS(I,J),I=1,5),J=271,280) /
     :   1,  0,  2, -1,  1,
     :   1,  0,  4, -2,  1,
     :   1, -1,  2, -2,  1,
     :   0,  1,  0, -4,  0,
     :   3,  0, -2, -2, -2,
     :   0,  0,  4, -4,  2,
     :   2,  0, -4, -2, -2,
     :   2, -2,  0, -2, -1,
     :   1,  0,  2, -2, -1,
     :   2,  0, -2, -6, -2 /
      DATA ((MFALS(I,J),I=1,5),J=281,290) /
     :   1,  0, -2,  1, -2,
     :   1,  0, -2,  2,  1,
     :   1, -1,  0,  2, -1,
     :   1,  0, -2,  1,  0,
     :   2, -1,  0, -2,  1,
     :   1, -1,  0,  2,  1,
     :   2,  0, -2, -2,  0,
     :   1,  0,  2, -3,  2,
     :   0,  0,  0,  4, -1,
     :   2, -1,  0,  0,  1 /
      DATA ((MFALS(I,J),I=1,5),J=291,300) /
     :   2,  0,  4, -2,  2,
     :   0,  0,  2,  3,  2,
     :   0,  1,  4, -2,  2,
     :   0,  1, -2,  2,  1,
     :   1,  1,  0,  2,  1,
     :   1,  0,  0,  4,  1,
     :   0,  0,  4,  0,  1,
     :   2,  0,  0, -3,  0,
     :   1,  0,  0, -1, -2,
     :   1, -2, -2, -2, -2 /
      DATA ((MFALS(I,J),I=1,5),J=301,310) /
     :   3,  0,  0,  2,  0,
     :   2,  0,  2, -4,  2,
     :   1,  1, -2, -4, -1,
     :   1,  0, -2, -6, -2,
     :   2, -1,  0,  0, -1,
     :   2, -1,  0,  2,  0,
     :   0,  1,  2, -2, -1,
     :   1,  1,  0,  1,  0,
     :   1,  2,  0, -2, -1,
     :   1,  0,  0,  1, -1 /
      DATA ((MFALS(I,J),I=1,5),J=311,320) /
     :   0,  0,  1,  0,  2,
     :   3,  1,  2, -2,  2,
     :   1,  0, -4, -2, -2,
     :   1,  0,  2,  4,  1,
     :   1, -2,  2,  2,  2,
     :   1, -1, -2, -4, -2,
     :   0,  0,  2, -4,  2,
     :   0,  0,  2, -3,  1,
     :   2,  1, -2,  0,  0,
     :   3,  0, -2, -2, -1 /
      DATA ((MFALS(I,J),I=1,5),J=321,330) /
     :   2,  0,  2,  4,  2,
     :   0,  0,  0,  0,  3,
     :   2, -1, -2, -2, -2,
     :   2,  0,  0, -1,  0,
     :   3,  0,  2, -4,  2,
     :   2,  1,  2,  2,  2,
     :   0,  0,  3,  0,  3,
     :   1,  1,  2,  2,  1,
     :   2,  1,  0,  0, -1,
     :   1,  2,  0, -2,  1 /
      DATA ((MFALS(I,J),I=1,5),J=331,340) /
     :   3,  0,  2,  2,  1,
     :   1, -1, -2,  2, -2,
     :   1,  1,  0, -1,  0,
     :   1,  2,  0,  0,  0,
     :   1,  0,  4,  0,  2,
     :   1, -1,  2,  4,  2,
     :   2,  1,  0,  0,  1,
     :   1,  0,  0,  2,  2,
     :   1, -1, -2,  2,  0,
     :   0,  2, -2, -2, -1 /
      DATA ((MFALS(I,J),I=1,5),J=341,350) /
     :   2,  0, -2,  0,  2,
     :   5,  0,  2,  0,  2,
     :   3,  0, -2, -6, -2,
     :   1, -1,  2, -1,  2,
     :   3,  0,  0, -4, -1,
     :   1,  0,  0,  1,  1,
     :   1,  0, -4,  2, -1,
     :   0,  1,  2, -4,  1,
     :   1,  2,  2,  0,  2,
     :   0,  1,  0, -2, -2 /
      DATA ((MFALS(I,J),I=1,5),J=351,360) /
     :   0,  0,  2, -1,  0,
     :   1,  0,  1,  0,  1,
     :   0,  2,  0, -2,  1,
     :   3,  0,  2,  0,  0,
     :   1,  1, -2,  1,  0,
     :   2,  1, -2, -4, -1,
     :   3, -1,  0,  0,  0,
     :   2, -1, -2,  0,  0,
     :   4,  0,  2, -2,  1,
     :   2,  0, -2,  2,  0 /
      DATA ((MFALS(I,J),I=1,5),J=361,370) /
     :   1,  1,  2, -2,  0,
     :   1,  0, -2,  4, -1,
     :   1,  0, -2, -2,  1,
     :   2,  0,  2, -4,  0,
     :   1,  1,  0, -2, -2,
     :   1,  1, -2, -2,  0,
     :   1,  0,  1, -2,  1,
     :   2, -1, -2, -4, -2,
     :   3,  0, -2,  0, -2,
     :   0,  1, -2, -2,  0 /
      DATA ((MFALS(I,J),I=1,5),J=371,380) /
     :   3,  0,  0, -2, -1,
     :   1,  0, -2, -3, -1,
     :   0,  1,  0, -4, -1,
     :   1, -2,  2, -2,  1,
     :   0,  1, -2,  1, -1,
     :   1, -1,  0,  0,  2,
     :   2,  0,  0,  1,  0,
     :   1, -2,  0,  2,  0,
     :   1,  2, -2, -2, -1,
     :   0,  0,  4, -4,  1 /
      DATA ((MFALS(I,J),I=1,5),J=381,390) /
     :   0,  1,  2,  4,  2,
     :   0,  1, -4,  2, -2,
     :   3,  0, -2,  0,  0,
     :   2, -1,  2,  2,  1,
     :   0,  1, -2, -4, -1,
     :   4,  0,  2,  2,  2,
     :   2,  0, -2, -3, -2,
     :   2,  0,  0, -6,  0,
     :   1,  0,  2,  0,  3,
     :   3,  1,  0,  0,  0 /
      DATA ((MFALS(I,J),I=1,5),J=391,400) /
     :   3,  0,  0, -4,  1,
     :   1, -1,  2,  0,  0,
     :   1, -1,  0, -4,  0,
     :   2,  0, -2,  2, -2,
     :   1,  1,  0, -2,  2,
     :   4,  0,  0, -2,  0,
     :   2,  2,  0, -2,  0,
     :   0,  1,  2,  0,  0,
     :   1,  1,  0, -4,  1,
     :   1,  0,  0, -4, -2 /
      DATA ((MFALS(I,J),I=1,5),J=401,410) /
     :   0,  0,  0,  1,  2,
     :   3,  0,  0,  2,  1,
     :   1,  1,  0, -4, -1,
     :   0,  0,  2,  2, -1,
     :   1,  1,  2,  0,  0,
     :   1, -1,  2, -4,  1,
     :   1,  1,  0,  0,  2,
     :   0,  0,  2,  6,  2,
     :   4,  0, -2, -2, -1,
     :   2,  1,  0, -4, -1 /
      DATA ((MFALS(I,J),I=1,5),J=411,420) /
     :   0,  0,  0,  3,  1,
     :   1, -1, -2,  0,  0,
     :   0,  0,  2,  1,  0,
     :   1,  0,  0,  2, -2,
     :   3, -1,  2,  2,  2,
     :   3, -1,  2, -2,  2,
     :   1,  0,  0, -1,  2,
     :   1, -2,  2, -2,  2,
     :   0,  1,  0,  2,  2,
     :   0,  1, -2, -1, -2 /
      DATA ((MFALS(I,J),I=1,5),J=421,430) /
     :   1,  1, -2,  0,  0,
     :   0,  2,  2, -2,  0,
     :   3, -1, -2, -1, -2,
     :   1,  0,  0, -6,  0,
     :   1,  0, -2, -4,  0,
     :   2,  1,  0, -4,  1,
     :   2,  0,  2,  0, -1,
     :   2,  0, -4,  0, -1,
     :   0,  0,  3,  0,  2,
     :   2,  1, -2, -2, -1 /
      DATA ((MFALS(I,J),I=1,5),J=431,440) /
     :   1, -2,  0,  0,  1,
     :   2, -1,  0, -4,  0,
     :   0,  0,  0,  3,  0,
     :   5,  0,  2, -2,  2,
     :   1,  2, -2, -4, -2,
     :   1,  0,  4, -4,  2,
     :   0,  0,  4, -1,  2,
     :   3,  1,  0, -4,  0,
     :   3,  0,  0, -6,  0,
     :   2,  0,  0,  2,  2 /
      DATA ((MFALS(I,J),I=1,5),J=441,450) /
     :   2, -2,  2,  0,  2,
     :   1,  0,  0, -3,  1,
     :   1, -2, -2,  0, -2,
     :   1, -1, -2, -3, -2,
     :   0,  0,  2, -2, -2,
     :   2,  0, -2, -4,  0,
     :   1,  0, -4,  0,  0,
     :   0,  1,  0, -1,  0,
     :   4,  0,  0,  0, -1,
     :   3,  0,  2, -1,  2 /
      DATA ((MFALS(I,J),I=1,5),J=451,460) /
     :   3, -1,  2,  0,  1,
     :   2,  0,  2, -1,  1,
     :   1,  2,  2, -2,  1,
     :   1,  1,  0,  2, -1,
     :   0,  2,  2,  0,  1,
     :   3,  1,  2,  0,  1,
     :   1,  1,  2,  1,  1,
     :   1,  1,  0, -1,  1,
     :   1, -2,  0, -2, -1,
     :   4,  0,  0, -4,  0 /
      DATA ((MFALS(I,J),I=1,5),J=461,470) /
     :   2,  1,  0,  2,  0,
     :   1, -1,  0,  4,  0,
     :   0,  1,  0, -2,  2,
     :   0,  0,  2,  0, -2,
     :   1,  0, -1,  0,  1,
     :   3,  0,  2, -2,  0,
     :   2,  0,  2,  2,  0,
     :   1,  2,  0, -4,  0,
     :   1, -1,  0, -3,  0,
     :   0,  1,  0,  4,  0 /
      DATA ((MFALS(I,J),I=1,5),J=471,480) /
     :   0,  1, -2,  0,  0,
     :   2,  2,  2, -2,  2,
     :   0,  0,  0,  1, -2,
     :   0,  2, -2,  0, -1,
     :   4,  0,  2, -4,  2,
     :   2,  0, -4,  2, -2,
     :   2, -1, -2,  0, -2,
     :   1,  1,  4, -2,  2,
     :   1,  1,  2, -4,  2,
     :   1,  0,  2,  3,  2 /
      DATA ((MFALS(I,J),I=1,5),J=481,490) /
     :   1,  0,  0,  4, -1,
     :   0,  0,  0,  4,  2,
     :   2,  0,  0,  4,  0,
     :   1,  1, -2,  2,  0,
     :   2,  1,  2,  1,  2,
     :   2,  1,  2, -4,  1,
     :   2,  0,  2,  1,  1,
     :   2,  0, -4, -2, -1,
     :   2,  0, -2, -6, -1,
     :   2, -1,  2, -1,  2 /
      DATA ((MFALS(I,J),I=1,5),J=491,500) /
     :   1, -2,  2,  0,  1,
     :   1, -2,  0, -2,  1,
     :   1, -1,  0, -4, -1,
     :   0,  2,  2,  2,  2,
     :   0,  2, -2, -4, -2,
     :   0,  1,  2,  3,  2,
     :   0,  1,  0, -4,  1,
     :   3,  0,  0, -2,  1,
     :   2,  1, -2,  0,  1,
     :   2,  0,  4, -2,  1 /
      DATA ((MFALS(I,J),I=1,5),J=501,510) /
     :   2,  0,  0, -3, -1,
     :   2, -2,  0, -2,  1,
     :   2, -1,  2, -2,  1,
     :   1,  0,  0, -6, -1,
     :   1, -2,  0,  0, -1,
     :   1, -2, -2, -2, -1,
     :   0,  1,  4, -2,  1,
     :   0,  0,  2,  3,  1,
     :   2, -1,  0, -1,  0,
     :   1,  3,  0, -2,  0 /
      DATA ((MFALS(I,J),I=1,5),J=511,520) /
     :   0,  3,  0, -2,  0,
     :   2, -2,  2, -2,  2,
     :   0,  0,  4, -2,  0,
     :   4, -1,  2,  0,  2,
     :   2,  2, -2, -4, -2,
     :   4,  1,  2,  0,  2,
     :   4, -1, -2, -2, -2,
     :   2,  1,  0, -2, -2,
     :   2,  1, -2, -6, -2,
     :   2,  0,  0, -1,  1 /
      DATA ((MFALS(I,J),I=1,5),J=521,530) /
     :   2, -1, -2,  2, -1,
     :   1,  1, -2,  2, -2,
     :   1,  1, -2, -3, -2,
     :   1,  0,  3,  0,  3,
     :   1,  0, -2,  1,  1,
     :   1,  0, -2,  0,  2,
     :   1, -1,  2,  1,  2,
     :   1, -1,  0,  0, -2,
     :   1, -1, -4,  2, -2,
     :   0,  3, -2, -2, -2 /
      DATA ((MFALS(I,J),I=1,5),J=531,540) /
     :   0,  1,  0,  4,  1,
     :   0,  0,  4,  2,  2,
     :   3,  0, -2, -2,  0,
     :   2, -2,  0,  0,  0,
     :   1,  1,  2, -4,  0,
     :   1,  1,  0, -3,  0,
     :   1,  0,  2, -3,  0,
     :   1, -1,  2, -2,  0,
     :   0,  2,  0,  2,  0,
     :   0,  0,  2,  4,  0 /
      DATA ((MFALS(I,J),I=1,5),J=541,550) /
     :   1,  0,  1,  0,  0,
     :   3,  1,  2, -2,  1,
     :   3,  0,  4, -2,  2,
     :   3,  0,  2,  1,  2,
     :   3,  0,  0,  2, -1,
     :   3,  0,  0,  0,  2,
     :   3,  0, -2,  2, -1,
     :   2,  0,  4, -4,  2,
     :   2,  0,  2, -3,  2,
     :   2,  0,  0,  4,  1 /
      DATA ((MFALS(I,J),I=1,5),J=551,560) /
     :   2,  0,  0, -3,  1,
     :   2,  0, -4,  2, -1,
     :   2,  0, -2, -2,  1,
     :   2, -2,  2,  2,  2,
     :   2, -2,  0, -2, -2,
     :   2, -1,  0,  2,  1,
     :   2, -1,  0,  2, -1,
     :   1,  1,  2,  4,  2,
     :   1,  1,  0,  1,  1,
     :   1,  1,  0,  1, -1 /
      DATA ((MFALS(I,J),I=1,5),J=561,570) /
     :   1,  1, -2, -6, -2,
     :   1,  0,  0, -3, -1,
     :   1,  0, -4, -2, -1,
     :   1,  0, -2, -6, -1,
     :   1, -2,  2,  2,  1,
     :   1, -2, -2,  2, -1,
     :   1, -1, -2, -4, -1,
     :   0,  2,  0,  0,  2,
     :   0,  1,  2, -4,  2,
     :   0,  1, -2,  4, -1 /
      DATA ((MFALS(I,J),I=1,5),J=571,580) /
     :   5,  0,  0,  0,  0,
     :   3,  0,  0, -3,  0,
     :   2,  2,  0, -4,  0,
     :   1, -1,  2,  2,  0,
     :   0,  1,  0,  3,  0,
     :   4,  0, -2,  0, -1,
     :   3,  0, -2, -6, -1,
     :   3,  0, -2, -1, -1,
     :   2,  1,  2,  2,  1,
     :   2,  1,  0,  2,  1 /
      DATA ((MFALS(I,J),I=1,5),J=581,590) /
     :   2,  0,  2,  4,  1,
     :   2,  0,  2, -6,  1,
     :   2,  0,  2, -2, -1,
     :   2,  0,  0, -6, -1,
     :   2, -1, -2, -2, -1,
     :   1,  2,  2,  0,  1,
     :   1,  2,  0,  0,  1,
     :   1,  0,  4,  0,  1,
     :   1,  0,  2, -6,  1,
     :   1,  0,  2, -4, -1 /
      DATA ((MFALS(I,J),I=1,5),J=591,600) /
     :   1,  0, -1, -2, -1,
     :   1, -1,  2,  4,  1,
     :   1, -1,  2, -3,  1,
     :   1, -1,  0,  4,  1,
     :   1, -1, -2,  1, -1,
     :   0,  1,  2, -2,  3,
     :   3,  0,  0, -2,  0,
     :   1,  0,  1, -2,  0,
     :   0,  2,  0, -4,  0,
     :   0,  0,  2, -4,  0 /
      DATA ((MFALS(I,J),I=1,5),J=601,610) /
     :   0,  0,  1, -1,  0,
     :   0,  0,  0,  6,  0,
     :   0,  2,  0,  0, -2,
     :   0,  1, -2,  2, -3,
     :   4,  0,  0,  2,  0,
     :   3,  0,  0, -1,  0,
     :   3, -1,  0,  2,  0,
     :   2,  1,  0,  1,  0,
     :   2,  1,  0, -6,  0,
     :   2, -1,  2,  0,  0 /
      DATA ((MFALS(I,J),I=1,5),J=611,620) /
     :   1,  0,  2, -1,  0,
     :   1, -1,  0,  1,  0,
     :   1, -1, -2, -2,  0,
     :   0,  1,  2,  2,  0,
     :   0,  0,  2, -3,  0,
     :   2,  2,  0, -2, -1,
     :   2, -1, -2,  0,  1,
     :   1,  2,  2, -4,  1,
     :   0,  1,  4, -4,  2,
     :   0,  0,  0,  3,  2 /
      DATA ((MFALS(I,J),I=1,5),J=621,630) /
     :   5,  0,  2,  0,  1,
     :   4,  1,  2, -2,  2,
     :   4,  0, -2, -2,  0,
     :   3,  1,  2,  2,  2,
     :   3,  1,  0, -2,  0,
     :   3,  1, -2, -6, -2,
     :   3,  0,  0,  0, -2,
     :   3,  0, -2, -4, -2,
     :   3, -1,  0, -3,  0,
     :   3, -1,  0, -2,  0 /
      DATA ((MFALS(I,J),I=1,5),J=631,640) /
     :   2,  1,  2,  0,  0,
     :   2,  1,  2, -4,  2,
     :   2,  1,  2, -2,  0,
     :   2,  1,  0, -3,  0,
     :   2,  1, -2,  0, -2,
     :   2,  0,  0, -4,  2,
     :   2,  0,  0, -4, -2,
     :   2,  0, -2, -5, -2,
     :   2, -1,  2,  4,  2,
     :   2, -1,  0, -2,  2 /
      DATA ((MFALS(I,J),I=1,5),J=641,650) /
     :   1,  3, -2, -2, -2,
     :   1,  1,  0,  0, -2,
     :   1,  1,  0, -6,  0,
     :   1,  1, -2,  1, -2,
     :   1,  1, -2, -1, -2,
     :   1,  0,  2,  1,  0,
     :   1,  0,  0,  3,  0,
     :   1,  0,  0, -4,  2,
     :   1,  0, -2,  4, -2,
     :   1, -2,  0, -1,  0 /
      DATA ((MFALS(I,J),I=1,5),J=651,NFLS) /
     :   0,  1, -4,  2, -1,
     :   1,  0, -2,  0, -3,
     :   0,  0,  4, -4,  4 /

*  Fundamental-argument multipliers:  planetary terms.
      DATA ((MFAPL(I,J),I=1,14),J=1,10) /
     :   0,  0,  1, -1,  1,  0,  0, -1,  0, -2,  5,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2, -5,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  3, -5,  0,  0,  0,  0,  0, -2,
     :   0,  0,  1, -1,  1,  0, -8, 12,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  4, -8,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1, -1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  8,-16,  4,  5,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0, -1,  2,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=11,20) /
     :   0,  0,  0,  0,  0,  0,  8,-13,  0,  0,  0,  0,  0, -1,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  2, -5,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0, -5,  6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  4, -6,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  3,  0, -1,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  2, -8,  3,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  2, -4,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  6, -8,  3,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  1, -2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  2, -3,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=21,30) /
     :   0,  0,  0,  0,  0,  0,  2, -2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  1,  0,  0, -4,  8, -3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  4, -8,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2, -5,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1,  1,  0,  0,  0,  0,  0,  2,
     :   0,  0,  1, -1,  1,  0,  0,  0, -2,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2, -1,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  1,
     :   2,  0,  0, -2,  0,  0,  0, -2,  0,  2,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=31,40) /
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  8,-13,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  1,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  5, -8,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  2, -2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2, -5,  0,  0,  1,
     :   2,  0,  0, -2,  0,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0, -1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  0, -1,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=41,50) /
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  5, -7,  0,  0,  0,  0,  0, -2,
     :   0,  0,  1, -1,  0,  0,  0,  0, -2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  4,  0, -2,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  8,-13,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  2, -1,  0,  0,  0,  0,  0,  2,
     :   1,  0,  0,  0,  0,  0,-18, 16,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  1,  0,  0,  0,  2 /
      DATA ((MFAPL(I,J),I=1,14),J=51,60) /
     :   0,  0,  1, -1,  1,  0, -5,  7,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0,  0,  0,  0,-10,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  0,  0, -5,  6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -1,  0,  0,  0,  2,
     :   1,  0,  2,  0,  2,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  4, -2,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  1,
     :   1,  0, -2,  0, -2,  0,  0,  4, -8,  3,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  0,  2,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0, -3,  3,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=61,70) /
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  8,-16,  4,  5,  0,  0, -2,
     :   0,  0,  1, -1,  1,  0,  0,  3, -8,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  8,-11,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  3,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  8,-16,  4,  5,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  1, -1,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  4, -6,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -3,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  2, -4,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=71,80) /
     :   0,  0,  0,  0,  0,  0,  6, -8,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  3, -2,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  8,-15,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  2, -5,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  1, -3,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  3,  0, -2,  0,  0,  0,  2,
     :   0,  0,  1, -1,  1,  0,  0, -5,  8, -3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  2,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  3, -2,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  3, -5,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=81,90) /
     :   2,  0,  0, -2,  1,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  5, -8,  0,  0,  0,  0,  0, -1,
     :   2,  0,  0, -2,  0,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  8,-13,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  0,  0, -2,  5,  0,  0,  0,
     :   1,  0,  0, -1,  0,  0, -3,  4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  0,  0,  2,
     :   1,  0,  0,  0, -1,  0,-18, 16,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  0,  0,  2, -5,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  0,  0,  1,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=91,100) /
     :   1,  0,  0, -2,  0,  0, 19,-21,  3,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0, -8, 13,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  0,  1,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  7, -9,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  0,  2,
     :   1,  0,  0,  0,  1,  0,-18, 16,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  2, -4,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  6,-16,  4,  5,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  4, -7,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  3, -7,  0,  0,  0,  0,  0, -2 /
      DATA ((MFAPL(I,J),I=1,14),J=101,110) /
     :   0,  0,  0,  0,  0,  0,  2, -2,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  1,
     :   2,  0,  0, -2,  1,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  3, -4,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1, -2,  0,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2, -1,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  2,  0,  0,  0,  2 /
      DATA ((MFAPL(I,J),I=1,14),J=111,120) /
     :   0,  0,  0,  0,  1,  0,  0,  1, -2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  2,
     :   0,  0,  2, -2,  1,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -5,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  3, -3,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  4, -4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0,  0, -1,  0, -1,  0,  0,  0,  0,
     :   2,  0,  0, -2,  0,  0, -6,  8,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -2,  2,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=121,130) /
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  1,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1, -2,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  2, -3,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2, -4,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  0, -1,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  8,-10,  0,  0,  0,  0,  0, -2,
     :   0,  0,  1, -1,  1,  0, -3,  4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  6, -9,  0,  0,  0,  0,  0, -2,
     :   1,  0,  0, -1,  1,  0,  0, -1,  0,  2,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=131,140) /
     :   0,  0,  0,  0,  0,  0,  5, -7,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  5, -5,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  3, -3,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  4,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  4,  0, -3,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  1, -1,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  1,  0,  2, -3,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=141,150) /
     :   1,  0,  0, -1,  0,  0,  0, -1,  0,  1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1, -3,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  5, -4,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  4, -4,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  9,-11,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  2, -3,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  8,-15,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0, -4,  5,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  4, -6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  4,  0, -1,  0,  0,  0,  2 /
      DATA ((MFAPL(I,J),I=1,14),J=151,160) /
     :   1,  0,  0, -1,  1,  0, -3,  4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1,  1,  1,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0, -4, 10,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  1, -1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0,  0, -1,  0,  0, -1,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -1,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -4,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2, -5,  0,  0, -2,
     :   0,  0,  2, -2,  1,  0, -4,  4,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=161,170) /
     :   0,  0,  0,  0,  0,  0,  0,  3,  0,  0, -1,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  4, -3,  0,  0,  0,  0,  2,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  0,  0,  0,  2,  0,
     :   0,  0,  0,  0,  0,  0,  4, -4,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  2, -4,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  5, -8,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1, -2,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  1,  0,  0,  0,  0,  0,  1,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -9, 13,  0,  0,  0,  0,  0,
     :   2,  0,  2,  0,  2,  0,  0,  2,  0, -3,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=171,180) /
     :   0,  0,  0,  0,  0,  0,  3, -6,  0,  0,  0,  0,  0, -2,
     :   0,  0,  1, -1,  2,  0,  0, -1,  0,  0,  2,  0,  0,  0,
     :   1,  0,  0, -1, -1,  0, -3,  4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3, -6,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  6, -6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  3,  0,  0,  0,  1,
     :   1,  0,  2,  0,  1,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   1,  0, -2,  0, -1,  0,  0, -1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0, -2,  4,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3, -5,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=181,190) /
     :   0,  0,  0,  0,  0,  0,  2,  1,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  1,  1,  0,  0,  0,  0,  0,  1,
     :   0,  0,  2,  0,  2,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1, -8,  3,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  6,-10,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  7, -8,  3,  0,  0,  0,  2,
     :   0,  0,  0,  0,  1,  0, -3,  5,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0, -1,  0,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0, -5,  7,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -2,  0,  0,  0,  1 /
      DATA ((MFAPL(I,J),I=1,14),J=191,200) /
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  7,-10,  0,  0,  0,  0,  0, -2,
     :   1,  0,  0, -2,  0,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  2, -5,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  6, -8,  0,  0,  0,  0,  0, -1,
     :   0,  0,  1, -1,  1,  0,  0, -9, 15,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0, -2,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0, -1,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3, -6,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=201,210) /
     :   0,  0,  0,  0,  0,  0,  0,  1, -4,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  3,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  0, -1,  0,  0,  2,
     :   2,  0,  0, -2,  1,  0, -6,  8,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  5, -5,  0,  0,  0,  0,  0, -1,
     :   0,  0,  1, -1,  1,  0,  3, -6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0, -2,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  8,-14,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=211,220) /
     :   0,  0,  0,  0,  1,  0,  0,  8,-15,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  4, -6,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  7, -7,  0,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2,  1,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3, -1,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  1,  0,  0,  2,
     :   2,  0, -1, -1,  0,  0,  0,  3, -7,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  4, -7,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  3, -3,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -3,  4,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=221,230) /
     :   2,  0,  0, -2,  0,  0,  0, -6,  8,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2,  0,  0,  0, -5,  6,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  0,  0, -1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  2,  1,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  1,  2,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  1,  0,  0,  1,  0, -1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1, -1,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -9,  4,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  3, -5,  0,  0,  0,  0, -2 /
      DATA ((MFAPL(I,J),I=1,14),J=231,240) /
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -4,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  1,
     :   0,  0,  0,  0,  0,  0,  7,-11,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  3, -5,  4,  0,  0,  0,  0,  2,
     :   0,  0,  1, -1,  0,  0,  0, -1,  0, -1,  1,  0,  0,  0,
     :   2,  0,  0,  0,  0,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  8,-15,  0,  0,  0,  0, -2,
     :   0,  0,  1, -1,  2,  0,  0, -2,  2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  3,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  6, -6,  0,  0,  0,  0,  0, -1 /
      DATA ((MFAPL(I,J),I=1,14),J=241,250) /
     :   0,  0,  1, -1,  1,  0,  0, -1,  0, -1,  1,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  2, -2,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  0,  4, -7,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3, -8,  3,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  2, -4,  0, -3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  3, -5,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3,  0, -3,  0,  0,  0,  2,
     :   0,  0,  2, -2,  2,  0, -8, 11,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5, -8,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  0, -2,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=251,260) /
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  1,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  5, -9,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  5, -5,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  7, -9,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  4, -7,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  2, -1,  0,  0,  0,  0,  0,  0,
     :   1,  0, -2, -2, -2,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  1,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -2,  5,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  3, -3,  0,  0,  0,  0,  0,  1 /
      DATA ((MFAPL(I,J),I=1,14),J=261,270) /
     :   0,  0,  0,  0,  0,  0,  0,  6,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  2, -5,  0,  0,  2,
     :   2,  0,  0, -2, -1,  0,  0, -2,  0,  0,  5,  0,  0,  0,
     :   2,  0,  0, -2, -1,  0, -6,  8,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0, -2,  0,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  8, -8,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3,  0,  2, -5,  0,  0,  2,
     :   0,  0,  0,  0,  1,  0,  3, -7,  4,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0, -2,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0, -1,  0,  1,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=271,280) /
     :   0,  0,  1, -1,  0,  0,  0, -1,  0, -2,  5,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3,  0, -3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -1,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  2, -3,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0, 11,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  6,-15,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  3,  0,  1,  0,  0,  0,  2,
     :   1,  0,  0, -1,  0,  0,  0, -3,  4,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0, -3,  7, -4,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5,  0, -2,  0,  0,  0,  2 /
      DATA ((MFAPL(I,J),I=1,14),J=281,290) /
     :   0,  0,  0,  0,  0,  0,  3, -5,  0,  0,  0,  0,  0,  1,
     :   0,  0,  2, -2,  2,  0, -5,  6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  2,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3,  0,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  4, -4,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  4, -8,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  4, -5,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  5, -7,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  6,-11,  0,  0,  0,  0, -2 /
      DATA ((MFAPL(I,J),I=1,14),J=291,300) /
     :   0,  0,  0,  0,  0,  0,  0,  1, -3,  0,  0,  0,  0, -2,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  3,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0,  0, -1,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1, -2,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  9,-12,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  4, -4,  0,  0,  0,  0,  0,  1,
     :   0,  0,  1, -1,  0,  0, -8, 12,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0, -2,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  7, -7,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  3, -6,  0,  0,  0,  0, -1 /
      DATA ((MFAPL(I,J),I=1,14),J=301,310) /
     :   0,  0,  0,  0,  0,  0,  0,  6, -6,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  1,  0, -4,  0,  0,  0,  0,  0, -2,
     :   0,  0,  1, -1,  1,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  6, -9,  0,  0,  0,  0,  0, -1,
     :   0,  0,  1, -1, -1,  0,  0,  0, -2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1, -5,  0,  0,  0,  0, -2,
     :   2,  0,  0, -2,  0,  0,  0, -2,  0,  3, -1,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  0, -2,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5, -9,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  5, -6,  0,  0,  0,  0,  0,  2 /
      DATA ((MFAPL(I,J),I=1,14),J=311,320) /
     :   0,  0,  0,  0,  0,  0,  9, -9,  0,  0,  0,  0,  0, -1,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  0,  3,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  2, -4,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  5, -3,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  3,  0,  0,  1,
     :   0,  0,  1, -1,  2,  0,  0, -1,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  5, -9,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  5, -3,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  4,  0,  0,  0,  2,
     :   0,  0,  2,  0,  2,  0,  0,  4, -8,  3,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=321,330) /
     :   0,  0,  2,  0,  2,  0,  0, -4,  8, -3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5,  0, -3,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  1,  0,  0,  0,  0,
     :   2,  0, -1, -1, -1,  0,  0, -1,  0,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  4, -3,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  4, -2,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  5,-10,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  8,-13,  0,  0,  0,  0,  0,  1,
     :   0,  0,  2, -2,  1, -1,  0,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  0,  0,  2,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=331,340) /
     :   0,  0,  0,  0,  1,  0,  3, -5,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0, -2,  0,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   0,  0,  2, -2,  0,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  9, -9,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2,  0,  2,  0,  1, -1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -8, 11,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -2,  0,  0,  2,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0, -1,  2,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  5, -5,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  2, -6,  0,  0,  0,  0,  0, -2 /
      DATA ((MFAPL(I,J),I=1,14),J=341,350) /
     :   0,  0,  0,  0,  0,  0,  0,  8,-15,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  5, -2,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  7,-13,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  3,  0, -2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  3,  0,  0,  0,  2,
     :   0,  0,  2, -2,  1,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  8, -8,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  8,-10,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  4, -2,  0,  0,  0,  0,  0,  1 /
      DATA ((MFAPL(I,J),I=1,14),J=351,360) /
     :   0,  0,  0,  0,  0,  0,  3, -6,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  3, -4,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2, -5,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -4,  0,  0,  0,  0,
     :   2,  0,  0, -2, -1,  0,  0, -5,  6,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2, -5,  0,  0,  0,  0, -2,
     :   2,  0, -1, -1, -1,  0,  0,  3, -7,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5, -8,  0,  0,  0,  0,  0,
     :   0,  0,  2,  0,  2,  0, -1,  1,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=361,370) /
     :   2,  0,  0, -2,  0,  0,  0, -2,  0,  4, -3,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  6,-11,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2,  1,  0,  0, -6,  8,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  4, -8,  1,  5,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  6, -5,  0,  0,  0,  0,  2,
     :   1,  0, -2, -2, -2,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  2,  0,  0,  0, -2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  2,  0,  0,  4, -8,  3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  2,  0,  0, -4,  8, -3,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  6,  0,  0,  0,  0,  0,  1 /
      DATA ((MFAPL(I,J),I=1,14),J=371,380) /
     :   0,  0,  0,  0,  0,  0,  0,  6, -7,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  4,  0,  0, -2,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  3,  0,  0, -2,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -1,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  0,  1, -6,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  4, -5,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  0,  2,
     :   0,  0,  0,  0,  0,  0,  3, -5,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  7,-13,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -2,  0,  0,  0,  2 /
      DATA ((MFAPL(I,J),I=1,14),J=381,390) /
     :   0,  0,  1, -1,  0,  0,  0, -1,  0,  0,  2,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0, -8, 15,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2, -2,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   2,  0, -1, -1, -1,  0,  0, -1,  0,  2,  0,  0,  0,  0,
     :   1,  0,  2, -2,  2,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   1,  0, -1,  1, -1,  0,-18, 17,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2,  0,  2,  0,  0,  1,  0, -1,  0,  0,  0,  0,
     :   0,  0,  2,  0,  2,  0,  0, -1,  0,  1,  0,  0,  0,  0,
     :   0,  0,  2, -2, -1,  0, -5,  6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  2,  0,  0, -1,  0,  1,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=391,400) /
     :   0,  0,  0,  0,  1,  0,  2, -2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  8,-16,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  5,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  2,
     :   0,  0,  0,  0,  2,  0,  0, -1,  2,  0,  0,  0,  0,  0,
     :   2,  0, -1, -1, -2,  0,  0, -1,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  6,-10,  0,  0,  0,  0,  0, -1,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0, -2,  4,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2,  2,  0,  0,  0,  0,  2,
     :   2,  0,  0, -2, -1,  0,  0, -2,  0,  4, -5,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=401,410) /
     :   2,  0,  0, -2, -1,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   2,  0, -1, -1, -1,  0,  0, -1,  0,  0,  0,  0,  0,  0,
     :   1,  0,  1, -1,  1,  0,  0, -1,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0, -1, -1,  0,  0, -2,  2,  0,  0,  0,  0,  0,
     :   1,  0, -1, -1, -1,  0, 20,-20,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -1,  0,  1,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  1, -2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0, -2,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  5, -8,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  0,  0,  0, -1,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=411,420) /
     :   0,  0,  0,  0,  0,  0,  9,-11,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  5, -3,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -3,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  0,  1,
     :   0,  0,  0,  0,  0,  0,  6, -7,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3, -2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1, -2,  0,  0,  0,  0,  0, -2,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  0, -2,  0,  0,  0,
     :   0,  0,  1, -1,  2,  0,  0, -1,  0, -2,  5,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5, -7,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=421,430) /
     :   0,  0,  0,  0,  0,  0,  1, -3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5, -8,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  2, -6,  0,  0,  0,  0, -2,
     :   1,  0,  0, -2,  0,  0, 20,-21,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  8,-12,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  5, -6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  4, -4,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  2,  0,  0, -1,  0, -1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  8,-12,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  9,-17,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=431,440) /
     :   0,  0,  0,  0,  0,  0,  0,  5, -6,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  4, -8,  1,  5,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  4, -6,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  2, -7,  0,  0,  0,  0, -2,
     :   1,  0,  0, -1,  1,  0,  0, -3,  4,  0,  0,  0,  0,  0,
     :   1,  0, -2,  0, -2,  0,-10,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0, -9, 17,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1, -4,  0,  0,  0,  0,  0, -2,
     :   1,  0, -2, -2, -2,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   1,  0, -1,  1, -1,  0,  0,  1,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=441,450) /
     :   0,  0,  2, -2,  2,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   0,  0,  1, -1,  2,  0,  0, -1,  0,  0,  1,  0,  0,  0,
     :   0,  0,  1, -1,  2,  0, -5,  7,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  2, -2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  4, -5,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  3, -4,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  2, -4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5,-10,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  4,  0, -4,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0, -5,  0,  0,  0, -2 /
      DATA ((MFAPL(I,J),I=1,14),J=451,460) /
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -5,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -2,  5,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -2,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  2, -3,  0,  0,  0,  0,  0,  1,
     :   1,  0,  0, -2,  0,  0,  0,  1,  0, -1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -7,  4,  0,  0,  0,  0,  0,
     :   2,  0,  2,  0,  1,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1, -1,  0,  0, -1,  0, -1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  1,  0, -2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  6,-10,  0,  0,  0,  0, -2 /
      DATA ((MFAPL(I,J),I=1,14),J=461,470) /
     :   1,  0,  0, -1,  1,  0,  0, -1,  0,  1,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0,  4, -8,  3,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0,  1,  0, -1,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -4,  8, -3,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -3,  0,  3,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0, -5,  5,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  1, -3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -4,  6,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  0,  0, -1,  0,  0,
     :   0,  0,  1, -1,  1,  0, -5,  6,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=471,480) /
     :   0,  0,  0,  0,  1,  0,  3, -4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0, -2,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  7,-10,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  5, -5,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  4, -5,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  3, -8,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  2, -5,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  1, -2,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  7, -9,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  7, -8,  0,  0,  0,  0,  2 /
      DATA ((MFAPL(I,J),I=1,14),J=481,490) /
     :   0,  0,  0,  0,  0,  0,  0,  3,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  3, -8,  3,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  0, -2,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  0,  2, -4,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -1,  0,  0,  0, -1,
     :   2,  0,  0, -2, -1,  0,  0, -6,  8,  0,  0,  0,  0,  0,
     :   2,  0, -1, -1,  1,  0,  0,  3, -7,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -7,  9,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3, -5,  0,  0,  0,  0, -1 /
      DATA ((MFAPL(I,J),I=1,14),J=491,500) /
     :   0,  0,  1, -1,  2,  0, -8, 12,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0,  0,  0,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   1,  0,  0, -2,  0,  0,  2, -2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  7, -8,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2,  1,  0,  0, -5,  6,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2, -1,  0,  0, -2,  0,  3, -1,  0,  0,  0,
     :   1,  0,  1,  1,  1,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0, -2,  1,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   1,  0,  0, -2, -1,  0,  0, -2,  0,  2,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=501,510) /
     :   1,  0,  0, -1, -1,  0,  0, -3,  4,  0,  0,  0,  0,  0,
     :   1,  0, -1,  0, -1,  0, -3,  5,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -4,  4,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0, -8, 11,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  0,  0,  0, -9, 13,  0,  0,  0,  0,  0,
     :   0,  0,  1,  1,  2,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0,  1, -4,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0,  0, -1,  0,  1, -3,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0,  7,-13,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=511,520) /
     :   0,  0,  0,  0,  1,  0,  0,  2,  0, -2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0, -2,  2,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0, -3,  4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  1,  0, -4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  7,-11,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  6, -6,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  6, -4,  0,  0,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  5, -6,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  4, -2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -4,  0,  0,  0,  0,  0,  1 /
      DATA ((MFAPL(I,J),I=1,14),J=521,530) /
     :   0,  0,  0,  0,  0,  0,  1, -4,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  9,-17,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  7, -7,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  4, -8,  3,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  0,  4, -8,  3,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  4, -8,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  4, -7,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  1,  0,  0,  0,  1,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -4,  0,  0,  0,  0,
     :   2,  0,  0, -2,  0,  0,  0, -4,  8, -3,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=531,540) /
     :   2,  0,  0, -2,  0,  0, -2,  2,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0,  0,  0,  0,  0,  4, -8,  3,  0,  0,  0,  0,
     :   1,  0,  0,  0,  0,  0,  0, -4,  8, -3,  0,  0,  0,  0,
     :   1,  0,  0,  0,  0,  0, -1,  1,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0, -2,  0,  0, 17,-16,  0, -2,  0,  0,  0,  0,
     :   1,  0,  0, -1,  0,  0,  0, -2,  2,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  0,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  6, -9,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  3,  0, -4,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=541,550) /
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1, -2, -2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  1,  0,  0,  0,  0,  2,
     :   2,  0,  0, -2,  0,  0,  0, -4,  4,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2,  0,  0,  0, -2,  0,  2,  2,  0,  0,  0,
     :   1,  0,  0,  0,  0,  0,  1, -1,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0,  0,  0,  0,  0, -1,  0,  1,  0,  0,  0,  0,
     :   1,  0,  0,  0,  0,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0, -2,  0,  0,  1, -1,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0, -2,  0,  0,  0,  4, -8,  3,  0,  0,  0,  0,
     :   1,  0,  0, -2,  0,  0,  0, -4,  8, -3,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=551,560) /
     :   1,  0,  0, -2,  0,  0, -2,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  0,  0, -4,  4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1,  1,  0,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0,  3, -6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0,  0, -2,  2,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0,  0, -1,  0,  1,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0,  0, -1,  0,  0,  1,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0, -4,  5,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0, -3,  4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  2,  0,  0,  0, -1,  0,  1,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=561,570) /
     :   0,  0,  0,  0,  0,  0,  8, -9,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  3, -5,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2, -2,  0,  0,  0,
     :   2,  0, -2, -2, -2,  0,  0, -2,  0,  2,  0,  0,  0,  0,
     :   1,  0,  0,  0,  1,  0,-10,  3,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0,  0, -1,  0,-10,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2,  0,  2,  0,  2, -3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2,  0,  2,  0,  2, -2,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=571,580) /
     :   0,  0,  2,  0,  2,  0, -2,  3,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2,  0,  2,  0, -2,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  2,  0,  0,  0,  0,  1,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0,  0, -1,  0,  2,  0,  0,  0,  0,
     :   2,  0,  2, -2,  2,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   2,  0,  1, -3,  1,  0, -6,  7,  0,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2,  0,  0,  2, -5,  0,  0,  0,  0,  0,  0,
     :   2,  0,  0, -2,  0,  0,  0, -2,  0,  5, -5,  0,  0,  0,
     :   2,  0,  0, -2,  0,  0,  0, -2,  0,  1,  5,  0,  0,  0,
     :   2,  0,  0, -2,  0,  0,  0, -2,  0,  0,  5,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=581,590) /
     :   2,  0,  0, -2,  0,  0,  0, -2,  0,  0,  2,  0,  0,  0,
     :   2,  0,  0, -2,  0,  0, -4,  4,  0,  0,  0,  0,  0,  0,
     :   2,  0, -2,  0, -2,  0,  0,  5, -9,  0,  0,  0,  0,  0,
     :   2,  0, -1, -1,  0,  0,  0, -1,  0,  3,  0,  0,  0,  0,
     :   1,  0,  2,  0,  2,  0,  1, -1,  0,  0,  0,  0,  0,  0,
     :   1,  0,  2,  0,  2,  0,  0,  4, -8,  3,  0,  0,  0,  0,
     :   1,  0,  2,  0,  2,  0,  0, -4,  8, -3,  0,  0,  0,  0,
     :   1,  0,  2,  0,  2,  0, -1,  1,  0,  0,  0,  0,  0,  0,
     :   1,  0,  2, -2,  2,  0, -3,  3,  0,  0,  0,  0,  0,  0,
     :   1,  0,  0,  0,  0,  0,  0,  1,  0, -1,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=591,600) /
     :   1,  0,  0,  0,  0,  0,  0, -2,  0,  3,  0,  0,  0,  0,
     :   1,  0,  0, -2,  0,  0,  0,  2,  0, -2,  0,  0,  0,  0,
     :   1,  0, -2, -2, -2,  0,  0,  1,  0, -1,  0,  0,  0,  0,
     :   1,  0, -1,  1,  0,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   1,  0, -1, -1,  0,  0,  0,  8,-15,  0,  0,  0,  0,  0,
     :   0,  0,  2,  2,  2,  0,  0,  2,  0, -2,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  1, -1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0, -2,  0,  1,  0,  0,  0,  0,
     :   0,  0,  2, -2,  1,  0,  0,-10, 15,  0,  0,  0,  0,  0,
     :   0,  0,  2, -2,  0, -1,  0,  2,  0,  0,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=601,610) /
     :   0,  0,  1, -1,  2,  0,  0, -1,  0,  0, -1,  0,  0,  0,
     :   0,  0,  1, -1,  2,  0, -3,  4,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0, -4,  6,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  1,  0, -1,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0,  0,  1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0,  0, -1,  0,  0, -2,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0, -2,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1,  0,  0, -1,  0,  0,  0,  0,  0,  0,  0,
     :   0,  0,  1, -1, -1,  0, -5,  7,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  2,  0,  0,  0,  2,  0, -2,  0,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=611,620) /
     :   0,  0,  0,  2,  0,  0, -2,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  2,  0, -3,  5,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  1,  0, -1,  2,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  9,-13,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  8,-14,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  8,-11,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  6, -9,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  6, -8,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  6, -7,  0,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  5, -6,  0,  0,  0,  0,  0, -2 /
      DATA ((MFAPL(I,J),I=1,14),J=621,630) /
     :   0,  0,  0,  0,  0,  0,  5, -6, -4,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  5, -4,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  4, -8,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  4, -5,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  3, -3,  0,  2,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  3, -1,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  2,  0,  0,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  1, -1,  0,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  7,-12,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  6, -9,  0,  0,  0,  0, -2 /
      DATA ((MFAPL(I,J),I=1,14),J=631,640) /
     :   0,  0,  0,  0,  0,  0,  0,  6, -8,  1,  5,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  6, -4,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  6,-10,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5,  0, -4,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  5, -9,  0,  0,  0,  0, -1,
     :   0,  0,  0,  0,  0,  0,  0,  5, -8,  3,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  5, -7,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  5, -6,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  5,-16,  4,  5,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  5,-13,  0,  0,  0,  0, -2 /
      DATA ((MFAPL(I,J),I=1,14),J=641,650) /
     :   0,  0,  0,  0,  0,  0,  0,  3,  0, -5,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  3, -9,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  3, -7,  0,  0,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  2,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  2,  0,  0, -3,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  2, -8,  1,  5,  0,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  1, -5,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  2,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0,  0, -3,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  1,  0, -3,  5,  0,  0,  0 /
      DATA ((MFAPL(I,J),I=1,14),J=651,NFPL) /
     :   0,  0,  0,  0,  0,  0,  0,  1, -3,  0,  0,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  2, -6,  3,  0, -2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  1, -2,  0,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,
     :   0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,
     :   0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  0,  0,  0 /

*  Pointers into amplitudes array, one pointer per frequency.
      DATA (NC(I),I=1,100) /
     :    1,   21,   37,   51,   65,   79,   91,  103,  115,  127,
     :  139,  151,  163,  172,  184,  196,  207,  219,  231,  240,
     :  252,  261,  273,  285,  297,  309,  318,  327,  339,  351,
     :  363,  372,  384,  396,  405,  415,  423,  435,  444,  452,
     :  460,  467,  474,  482,  490,  498,  506,  513,  521,  528,
     :  536,  543,  551,  559,  566,  574,  582,  590,  597,  605,
     :  613,  620,  628,  636,  644,  651,  658,  666,  674,  680,
     :  687,  695,  702,  710,  717,  725,  732,  739,  746,  753,
     :  760,  767,  774,  782,  790,  798,  805,  812,  819,  826,
     :  833,  840,  846,  853,  860,  867,  874,  881,  888,  895 /
      DATA (NC(I),I=101,200) /
     :  901,  908,  914,  921,  928,  934,  941,  948,  955,  962,
     :  969,  976,  982,  989,  996, 1003, 1010, 1017, 1024, 1031,
     : 1037, 1043, 1050, 1057, 1064, 1071, 1078, 1084, 1091, 1098,
     : 1104, 1112, 1118, 1124, 1131, 1138, 1145, 1151, 1157, 1164,
     : 1171, 1178, 1185, 1192, 1199, 1205, 1212, 1218, 1226, 1232,
     : 1239, 1245, 1252, 1259, 1266, 1272, 1278, 1284, 1292, 1298,
     : 1304, 1310, 1316, 1323, 1329, 1335, 1341, 1347, 1353, 1359,
     : 1365, 1371, 1377, 1383, 1389, 1396, 1402, 1408, 1414, 1420,
     : 1426, 1434, 1440, 1446, 1452, 1459, 1465, 1471, 1477, 1482,
     : 1488, 1493, 1499, 1504, 1509, 1514, 1520, 1527, 1532, 1538 /
      DATA (NC(I),I=201,300) /
     : 1543, 1548, 1553, 1558, 1564, 1569, 1574, 1579, 1584, 1589,
     : 1594, 1596, 1598, 1600, 1602, 1605, 1608, 1610, 1612, 1617,
     : 1619, 1623, 1625, 1627, 1629, 1632, 1634, 1640, 1642, 1644,
     : 1646, 1648, 1650, 1652, 1654, 1658, 1660, 1662, 1664, 1668,
     : 1670, 1672, 1673, 1675, 1679, 1681, 1683, 1684, 1686, 1688,
     : 1690, 1693, 1695, 1697, 1701, 1703, 1705, 1707, 1709, 1711,
     : 1712, 1715, 1717, 1721, 1723, 1725, 1727, 1729, 1731, 1733,
     : 1735, 1737, 1739, 1741, 1743, 1745, 1747, 1749, 1751, 1753,
     : 1755, 1757, 1759, 1761, 1762, 1764, 1766, 1768, 1769, 1771,
     : 1773, 1775, 1777, 1779, 1781, 1783, 1785, 1787, 1788, 1790 /
      DATA (NC(I),I=301,400) /
     : 1792, 1794, 1796, 1798, 1800, 1802, 1804, 1806, 1807, 1809,
     : 1811, 1815, 1817, 1819, 1821, 1823, 1825, 1827, 1829, 1831,
     : 1833, 1835, 1837, 1839, 1840, 1842, 1844, 1848, 1850, 1852,
     : 1854, 1856, 1858, 1859, 1860, 1862, 1864, 1866, 1868, 1869,
     : 1871, 1873, 1875, 1877, 1879, 1881, 1883, 1885, 1887, 1889,
     : 1891, 1892, 1896, 1898, 1900, 1901, 1903, 1905, 1907, 1909,
     : 1910, 1911, 1913, 1915, 1919, 1921, 1923, 1927, 1929, 1931,
     : 1933, 1935, 1937, 1939, 1943, 1945, 1947, 1948, 1949, 1951,
     : 1953, 1955, 1957, 1958, 1960, 1962, 1964, 1966, 1968, 1970,
     : 1971, 1973, 1974, 1975, 1977, 1979, 1980, 1981, 1982, 1984 /
      DATA (NC(I),I=401,500) /
     : 1986, 1988, 1990, 1992, 1994, 1995, 1997, 1999, 2001, 2003,
     : 2005, 2007, 2008, 2009, 2011, 2013, 2015, 2017, 2019, 2021,
     : 2023, 2024, 2025, 2027, 2029, 2031, 2033, 2035, 2037, 2041,
     : 2043, 2045, 2046, 2047, 2049, 2051, 2053, 2055, 2056, 2057,
     : 2059, 2061, 2063, 2065, 2067, 2069, 2070, 2071, 2072, 2074,
     : 2076, 2078, 2080, 2082, 2084, 2086, 2088, 2090, 2092, 2094,
     : 2095, 2096, 2097, 2099, 2101, 2105, 2106, 2107, 2108, 2109,
     : 2110, 2111, 2113, 2115, 2119, 2121, 2123, 2125, 2127, 2129,
     : 2131, 2133, 2135, 2136, 2137, 2139, 2141, 2143, 2145, 2147,
     : 2149, 2151, 2153, 2155, 2157, 2159, 2161, 2163, 2165, 2167 /
      DATA (NC(I),I=501,600) /
     : 2169, 2171, 2173, 2175, 2177, 2179, 2181, 2183, 2185, 2186,
     : 2187, 2188, 2192, 2193, 2195, 2197, 2199, 2201, 2203, 2205,
     : 2207, 2209, 2211, 2213, 2217, 2219, 2221, 2223, 2225, 2227,
     : 2229, 2231, 2233, 2234, 2235, 2236, 2237, 2238, 2239, 2240,
     : 2241, 2244, 2246, 2248, 2250, 2252, 2254, 2256, 2258, 2260,
     : 2262, 2264, 2266, 2268, 2270, 2272, 2274, 2276, 2278, 2280,
     : 2282, 2284, 2286, 2288, 2290, 2292, 2294, 2296, 2298, 2300,
     : 2302, 2303, 2304, 2305, 2306, 2307, 2309, 2311, 2313, 2315,
     : 2317, 2319, 2321, 2323, 2325, 2327, 2329, 2331, 2333, 2335,
     : 2337, 2341, 2343, 2345, 2347, 2349, 2351, 2352, 2355, 2356 /
      DATA (NC(I),I=601,700) /
     : 2357, 2358, 2359, 2361, 2363, 2364, 2365, 2366, 2367, 2368,
     : 2369, 2370, 2371, 2372, 2373, 2374, 2376, 2378, 2380, 2382,
     : 2384, 2385, 2386, 2387, 2388, 2389, 2390, 2391, 2392, 2393,
     : 2394, 2395, 2396, 2397, 2398, 2399, 2400, 2401, 2402, 2403,
     : 2404, 2405, 2406, 2407, 2408, 2409, 2410, 2411, 2412, 2413,
     : 2414, 2415, 2417, 2418, 2430, 2438, 2445, 2453, 2460, 2468,
     : 2474, 2480, 2488, 2496, 2504, 2512, 2520, 2527, 2535, 2543,
     : 2550, 2558, 2566, 2574, 2580, 2588, 2596, 2604, 2612, 2619,
     : 2627, 2634, 2642, 2648, 2656, 2664, 2671, 2679, 2685, 2693,
     : 2701, 2709, 2717, 2725, 2733, 2739, 2747, 2753, 2761, 2769 /
      DATA (NC(I),I=701,800) /
     : 2777, 2785, 2793, 2801, 2809, 2817, 2825, 2833, 2841, 2848,
     : 2856, 2864, 2872, 2878, 2884, 2892, 2898, 2906, 2914, 2922,
     : 2930, 2938, 2944, 2952, 2958, 2966, 2974, 2982, 2988, 2996,
     : 3001, 3009, 3017, 3025, 3032, 3039, 3045, 3052, 3059, 3067,
     : 3069, 3076, 3083, 3090, 3098, 3105, 3109, 3111, 3113, 3120,
     : 3124, 3128, 3132, 3136, 3140, 3144, 3146, 3150, 3158, 3161,
     : 3165, 3166, 3168, 3172, 3176, 3180, 3182, 3185, 3189, 3193,
     : 3194, 3197, 3200, 3204, 3208, 3212, 3216, 3219, 3221, 3222,
     : 3226, 3230, 3234, 3238, 3242, 3243, 3247, 3251, 3254, 3258,
     : 3262, 3266, 3270, 3274, 3275, 3279, 3283, 3287, 3289, 3293 /
      DATA (NC(I),I=801,900) /
     : 3296, 3300, 3303, 3307, 3311, 3315, 3319, 3321, 3324, 3327,
     : 3330, 3334, 3338, 3340, 3342, 3346, 3350, 3354, 3358, 3361,
     : 3365, 3369, 3373, 3377, 3381, 3385, 3389, 3393, 3394, 3398,
     : 3402, 3406, 3410, 3413, 3417, 3421, 3425, 3429, 3433, 3435,
     : 3439, 3443, 3446, 3450, 3453, 3457, 3458, 3461, 3464, 3468,
     : 3472, 3476, 3478, 3481, 3485, 3489, 3493, 3497, 3501, 3505,
     : 3507, 3511, 3514, 3517, 3521, 3524, 3525, 3527, 3529, 3533,
     : 3536, 3540, 3541, 3545, 3548, 3551, 3555, 3559, 3563, 3567,
     : 3569, 3570, 3574, 3576, 3578, 3582, 3586, 3590, 3593, 3596,
     : 3600, 3604, 3608, 3612, 3616, 3620, 3623, 3626, 3630, 3632 /
      DATA (NC(I),I=901,1000) /
     : 3636, 3640, 3643, 3646, 3648, 3652, 3656, 3660, 3664, 3667,
     : 3669, 3671, 3675, 3679, 3683, 3687, 3689, 3693, 3694, 3695,
     : 3699, 3703, 3705, 3707, 3710, 3713, 3717, 3721, 3725, 3729,
     : 3733, 3736, 3740, 3744, 3748, 3752, 3754, 3757, 3759, 3763,
     : 3767, 3770, 3773, 3777, 3779, 3783, 3786, 3790, 3794, 3798,
     : 3801, 3805, 3809, 3813, 3817, 3821, 3825, 3827, 3831, 3835,
     : 3836, 3837, 3840, 3844, 3848, 3852, 3856, 3859, 3863, 3867,
     : 3869, 3871, 3875, 3879, 3883, 3887, 3890, 3894, 3898, 3901,
     : 3905, 3909, 3913, 3917, 3921, 3922, 3923, 3924, 3926, 3930,
     : 3932, 3936, 3938, 3940, 3944, 3948, 3952, 3956, 3959, 3963 /
      DATA (NC(I),I=1001,1100) /
     : 3965, 3969, 3973, 3977, 3979, 3981, 3982, 3986, 3989, 3993,
     : 3997, 4001, 4004, 4006, 4009, 4012, 4016, 4020, 4024, 4026,
     : 4028, 4032, 4036, 4040, 4044, 4046, 4050, 4054, 4058, 4060,
     : 4062, 4063, 4064, 4068, 4071, 4075, 4077, 4081, 4083, 4087,
     : 4089, 4091, 4095, 4099, 4101, 4103, 4105, 4107, 4111, 4115,
     : 4119, 4123, 4127, 4129, 4131, 4135, 4139, 4141, 4143, 4145,
     : 4149, 4153, 4157, 4161, 4165, 4169, 4173, 4177, 4180, 4183,
     : 4187, 4191, 4195, 4198, 4201, 4205, 4209, 4212, 4213, 4216,
     : 4217, 4221, 4223, 4226, 4230, 4234, 4236, 4240, 4244, 4248,
     : 4252, 4256, 4258, 4262, 4264, 4266, 4268, 4270, 4272, 4276 /
      DATA (NC(I),I=1101,1200) /
     : 4279, 4283, 4285, 4287, 4289, 4293, 4295, 4299, 4300, 4301,
     : 4305, 4309, 4313, 4317, 4319, 4323, 4325, 4329, 4331, 4333,
     : 4335, 4337, 4341, 4345, 4349, 4351, 4353, 4357, 4361, 4365,
     : 4367, 4369, 4373, 4377, 4381, 4383, 4387, 4389, 4391, 4395,
     : 4399, 4403, 4407, 4411, 4413, 4414, 4415, 4418, 4419, 4421,
     : 4423, 4427, 4429, 4431, 4433, 4435, 4437, 4439, 4443, 4446,
     : 4450, 4452, 4456, 4458, 4460, 4462, 4466, 4469, 4473, 4477,
     : 4481, 4483, 4487, 4489, 4491, 4493, 4497, 4499, 4501, 4504,
     : 4506, 4510, 4513, 4514, 4515, 4518, 4521, 4522, 4525, 4526,
     : 4527, 4530, 4533, 4534, 4537, 4541, 4542, 4543, 4544, 4545 /
      DATA (NC(I),I=1201,1300) /
     : 4546, 4547, 4550, 4553, 4554, 4555, 4558, 4561, 4564, 4567,
     : 4568, 4571, 4574, 4575, 4578, 4581, 4582, 4585, 4586, 4588,
     : 4590, 4592, 4596, 4598, 4602, 4604, 4608, 4612, 4613, 4616,
     : 4619, 4622, 4623, 4624, 4625, 4626, 4629, 4632, 4633, 4636,
     : 4639, 4640, 4641, 4642, 4643, 4644, 4645, 4648, 4649, 4650,
     : 4651, 4652, 4653, 4656, 4657, 4660, 4661, 4664, 4667, 4670,
     : 4671, 4674, 4675, 4676, 4677, 4678, 4681, 4682, 4683, 4684,
     : 4687, 4688, 4689, 4692, 4693, 4696, 4697, 4700, 4701, 4702,
     : 4703, 4704, 4707, 4708, 4711, 4712, 4715, 4716, 4717, 4718,
     : 4719, 4720, 4721, 4722, 4723, 4726, 4729, 4730, 4733, 4736 /
      DATA (NC(I),I=1301,NF) /
     : 4737, 4740, 4741, 4742, 4745, 4746, 4749, 4752, 4753 /

*  Amplitude coefficients (microarcsec);  indexed using the NC array.
      DATA (A(I),I=1,133) /
     :-6844318.44D0,9205236.26D0,1328.67D0,1538.18D0,205833.11D0,
     :153041.79D0,-3309.73D0,853.32D0,2037.98D0,-2301.27D0,81.46D0,
     :120.56D0,-20.39D0,-15.22D0,1.73D0,-1.61D0,-0.1D0,0.11D0,-0.02D0,
     :-0.02D0,-523908.04D0,573033.42D0,-544.75D0,-458.66D0,12814.01D0,
     :11714.49D0,198.97D0,-290.91D0,155.74D0,-143.27D0,-2.75D0,-1.03D0,
     :-1.27D0,-1.16D0,    0D0,-0.01D0,-90552.22D0,97846.69D0,111.23D0,
     :137.41D0,2187.91D0,2024.68D0,41.44D0,-51.26D0,26.92D0,-24.46D0,
     :-0.46D0,-0.28D0,-0.22D0, -0.2D0,82168.76D0,-89618.24D0,-27.64D0,
     :-29.05D0,-2004.36D0,-1837.32D0,-36.07D0,48D0,-24.43D0,22.41D0,
     : 0.47D0, 0.24D0,  0.2D0, 0.18D0,58707.02D0,7387.02D0,470.05D0,
     :-192.4D0,164.33D0,-1312.21D0,-179.73D0,-28.93D0,-17.36D0,-1.83D0,
     : -0.5D0, 3.57D0,    0D0, 0.13D0,-20557.78D0,22438.42D0,-20.84D0,
     :-17.4D0,501.82D0,459.68D0,59.2D0,-67.3D0,6.08D0,-5.61D0,-1.36D0,
     :-1.19D0,28288.28D0,-674.99D0,-34.69D0,35.8D0,-15.07D0,-632.54D0,
     :-11.19D0,0.78D0,-8.41D0, 0.17D0, 0.01D0, 0.07D0,-15406.85D0,
     :20069.5D0,15.12D0,31.8D0,448.76D0,344.5D0,-5.77D0,1.41D0,4.59D0,
     :-5.02D0, 0.17D0, 0.24D0,-11991.74D0,12902.66D0,32.46D0,36.7D0,
     :288.49D0,268.14D0,5.7D0,-7.06D0, 3.57D0,-3.23D0,-0.06D0,-0.04D0,
     :-8584.95D0,-9592.72D0,4.42D0,-13.2D0,-214.5D0,192.06D0,23.87D0 /
      DATA (A(I),I=134,273) /
     :29.83D0, 2.54D0,  2.4D0,  0.6D0,-0.48D0,5095.5D0,-6918.22D0,
     : 7.19D0, 3.92D0,-154.91D0,-113.94D0,2.86D0,-1.04D0,-1.52D0,
     : 1.73D0,-0.07D0, -0.1D0,-4910.93D0,-5331.13D0,0.76D0,0.4D0,
     :-119.21D0,109.81D0,2.16D0,3.2D0, 1.46D0, 1.33D0, 0.04D0,-0.02D0,
     :-6245.02D0,-123.48D0,-6.68D0,-8.2D0,-2.76D0,139.64D0,2.71D0,
     : 0.15D0, 1.86D0,2511.85D0,-3323.89D0,1.07D0,-0.9D0,-74.33D0,
     :-56.17D0,1.16D0,-0.01D0,-0.75D0, 0.83D0,-0.02D0,-0.04D0,
     :2307.58D0,3143.98D0,-7.52D0,7.5D0,70.31D0,-51.6D0,1.46D0,0.16D0,
     :-0.69D0,-0.79D0, 0.02D0,-0.05D0,2372.58D0,2554.51D0,5.93D0,
     : -6.6D0,57.12D0,-53.05D0,-0.96D0,-1.24D0,-0.71D0,-0.64D0,-0.01D0,
     :-2053.16D0,2636.13D0,5.13D0,7.8D0,58.94D0,45.91D0,-0.42D0,
     :-0.12D0, 0.61D0,-0.66D0, 0.02D0, 0.03D0,-1825.49D0,-2423.59D0,
     : 1.23D0,   -2D0,-54.19D0,40.82D0,-1.07D0,-1.02D0,0.54D0, 0.61D0,
     :-0.04D0, 0.04D0,2521.07D0,-122.28D0,-5.97D0,2.9D0,-2.73D0,
     :-56.37D0,-0.82D0,0.13D0,-0.75D0,-1534.09D0,1645.01D0,6.29D0,
     :  6.8D0,36.78D0, 34.3D0, 0.92D0,-1.25D0, 0.46D0,-0.41D0,-0.02D0,
     :-0.01D0,1898.27D0,47.7D0,-0.72D0, 2.5D0, 1.07D0,-42.45D0,-0.94D0,
     : 0.02D0,-0.56D0,-1292.02D0,-1387D0, 0D0,    0D0,-31.01D0,28.89D0,
     : 0.68D0,    0D0, 0.38D0, 0.35D0,-0.01D0,-0.01D0,-1234.96D0 /
      DATA (A(I),I=274,415) /
     :1323.81D0,5.21D0, 5.9D0, 29.6D0,27.61D0, 0.74D0,-1.22D0, 0.37D0,
     :-0.33D0,-0.02D0,-0.01D0,1137.48D0,-1233.89D0,-0.04D0,-0.3D0,
     :-27.59D0,-25.43D0,-0.61D0,  1D0,-0.34D0, 0.31D0, 0.01D0, 0.01D0,
     :-813.13D0,-1075.6D0,0.4D0,0.3D0,-24.05D0,18.18D0,-0.4D0,-0.01D0,
     : 0.24D0, 0.27D0,-0.01D0, 0.01D0,1163.22D0,-60.9D0,-2.94D0,1.3D0,
     :-1.36D0,-26.01D0,-0.58D0,0.07D0,-0.35D0,1029.7D0,-55.55D0,
     :-2.63D0,  1.1D0,-1.25D0,-23.02D0,-0.52D0,0.06D0,-0.31D0,
     :-556.26D0,852.85D0,3.16D0,-4.48D0,19.06D0,12.44D0,-0.81D0,
     :-0.27D0, 0.17D0,-0.21D0,    0D0, 0.02D0,-603.52D0,-800.34D0,
     : 0.44D0,  0.1D0,-17.9D0,13.49D0,-0.08D0,-0.01D0, 0.18D0,  0.2D0,
     :-0.01D0, 0.01D0,-628.24D0,684.99D0,-0.64D0,-0.5D0,15.32D0,
     :14.05D0, 3.18D0,-4.19D0, 0.19D0,-0.17D0,-0.09D0,-0.07D0,
     :-866.48D0,-16.26D0,0.52D0,-1.3D0,-0.36D0,19.37D0,0.43D0,-0.01D0,
     : 0.26D0,-512.37D0,695.54D0,-1.47D0,-1.4D0,15.55D0,11.46D0,
     :-0.16D0, 0.03D0, 0.15D0,-0.17D0, 0.01D0, 0.01D0,506.65D0,
     :643.75D0,2.54D0,-2.62D0, 14.4D0,-11.33D0,-0.77D0,-0.06D0,-0.15D0,
     :-0.16D0,    0D0, 0.01D0,664.57D0,16.81D0,-0.4D0,    1D0, 0.38D0,
     :-14.86D0,-3.71D0,-0.09D0,-0.2D0,405.91D0,522.11D0,0.99D0,-1.5D0,
     :11.67D0,-9.08D0,-0.25D0,-0.02D0,-0.12D0,-0.13D0,-305.78D0 /
      DATA (A(I),I=416,566) /
     :326.6D0, 1.75D0,  1.9D0,  7.3D0, 6.84D0,  0.2D0,-0.04D0,300.99D0,
     :-325.03D0,-0.44D0,-0.5D0,-7.27D0,-6.73D0,-1.01D0,0.01D0,    0D0,
     : 0.08D0,    0D0, 0.02D0,438.51D0,10.47D0,-0.56D0,-0.2D0, 0.24D0,
     :-9.81D0,-0.24D0, 0.01D0,-0.13D0,-264.02D0,335.24D0,0.99D0,1.4D0,
     : 7.49D0,  5.9D0,-0.27D0,-0.02D0,284.09D0,307.03D0,0.32D0,-0.4D0,
     : 6.87D0,-6.35D0,-0.99D0,-0.01D0,-250.54D0,327.11D0,0.08D0,0.4D0,
     : 7.31D0,  5.6D0, -0.3D0,230.72D0,-304.46D0,0.08D0,-0.1D0,-6.81D0,
     :-5.16D0, 0.27D0,229.78D0,304.17D0,-0.6D0, 0.5D0,  6.8D0,-5.14D0,
     : 0.33D0, 0.01D0,256.3D0,-276.81D0,-0.28D0,-0.4D0,-6.19D0,-5.73D0,
     :-0.14D0, 0.01D0,-212.82D0,269.45D0,0.84D0,1.2D0, 6.02D0, 4.76D0,
     : 0.14D0,-0.02D0,196.64D0,272.05D0,-0.84D0,0.9D0, 6.08D0, -4.4D0,
     : 0.35D0, 0.02D0,188.95D0,272.22D0,-0.12D0,0.3D0, 6.09D0,-4.22D0,
     : 0.34D0,-292.37D0,-5.1D0,-0.32D0,-0.4D0,-0.11D0, 6.54D0, 0.14D0,
     : 0.01D0,161.79D0,-220.67D0,0.24D0,0.1D0,-4.93D0,-3.62D0,-0.08D0,
     :261.54D0,-19.94D0,-0.95D0,0.2D0,-0.45D0,-5.85D0,-0.13D0, 0.02D0,
     :142.16D0,-190.79D0,0.2D0, 0.1D0,-4.27D0,-3.18D0,-0.07D0,187.95D0,
     :-4.11D0,-0.24D0,  0.3D0,-0.09D0, -4.2D0,-0.09D0, 0.01D0,    0D0,
     :    0D0,-79.08D0,167.9D0,0.04D0,    0D0, 3.75D0, 1.77D0,121.98D0,
     :131.04D0,-0.08D0, 0.1D0, 2.93D0,-2.73D0,-0.06D0,-172.95D0 /
      DATA (A(I),I=567,713) /
     :-8.11D0, -0.4D0, -0.2D0,-0.18D0, 3.87D0, 0.09D0, 0.01D0,
     :-160.15D0,-55.3D0,-14.04D0,13.9D0,-1.23D0,3.58D0, 0.4D0, 0.31D0,
     :-115.4D0,123.2D0, 0.6D0,  0.7D0, 2.75D0, 2.58D0, 0.08D0,-0.01D0,
     :-168.26D0, -2D0,  0.2D0, -0.2D0,-0.04D0, 3.76D0, 0.08D0,
     :-114.49D0,123.2D0,0.32D0, 0.4D0, 2.75D0, 2.56D0, 0.07D0,-0.01D0,
     :112.14D0,120.7D0,0.28D0, -0.3D0,  2.7D0,-2.51D0,-0.07D0,-0.01D0,
     :161.34D0,4.03D0,  0.2D0,  0.2D0, 0.09D0,-3.61D0,-0.08D0,91.31D0,
     :126.64D0,-0.4D0,  0.4D0, 2.83D0,-2.04D0,-0.04D0, 0.01D0,105.29D0,
     :112.9D0, 0.44D0, -0.5D0, 2.52D0,-2.35D0,-0.07D0,-0.01D0,98.69D0,
     :-106.2D0,-0.28D0,-0.3D0,-2.37D0,-2.21D0,-0.06D0, 0.01D0,86.74D0,
     :-112.94D0,-0.08D0,-0.2D0,-2.53D0,-1.94D0,-0.05D0,-134.81D0,
     : 3.51D0,  0.2D0, -0.2D0, 0.08D0, 3.01D0, 0.07D0,79.03D0,107.31D0,
     :-0.24D0,  0.2D0,  2.4D0,-1.77D0,-0.04D0, 0.01D0,132.81D0,
     :-10.77D0,-0.52D0, 0.1D0,-0.24D0,-2.97D0,-0.07D0, 0.01D0,
     :-130.31D0,-0.9D0,0.04D0,    0D0,    0D0, 2.91D0,-78.56D0,85.32D0,
     :    0D0,    0D0, 1.91D0, 1.76D0, 0.04D0,    0D0,    0D0,-41.53D0,
     : 89.1D0, 0.02D0,    0D0, 1.99D0, 0.93D0,66.03D0,  -71D0, -0.2D0,
     : -0.2D0,-1.59D0,-1.48D0,-0.04D0, 60.5D0, 64.7D0, 0.36D0, -0.4D0,
     : 1.45D0,-1.35D0,-0.04D0,-0.01D0,-52.27D0,-70.01D0,  0D0,    0D0 /
      DATA (A(I),I=714,865) /
     :-1.57D0, 1.17D0, 0.03D0,-52.95D0,66.29D0,0.32D0,  0.4D0, 1.48D0,
     : 1.18D0, 0.04D0,-0.01D0,51.02D0,67.25D0,    0D0,    0D0,  1.5D0,
     :-1.14D0,-0.03D0,-55.66D0,-60.92D0,0.16D0,-0.2D0,-1.36D0, 1.24D0,
     : 0.03D0,-54.81D0,-59.2D0,-0.08D0, 0.2D0,-1.32D0, 1.23D0, 0.03D0,
     :51.32D0,-55.6D0,    0D0,    0D0,-1.24D0,-1.15D0,-0.03D0,48.29D0,
     : 51.8D0,  0.2D0, -0.2D0, 1.16D0,-1.08D0,-0.03D0,-45.59D0, -49D0,
     :-0.12D0,  0.1D0, -1.1D0, 1.02D0, 0.03D0,40.54D0,-52.69D0,-0.04D0,
     : -0.1D0,-1.18D0,-0.91D0,-0.02D0,-40.58D0,-49.51D0, -1D0,    1D0,
     :-1.11D0, 0.91D0, 0.04D0, 0.02D0,-43.76D0,46.5D0, 0.36D0,  0.4D0,
     : 1.04D0, 0.98D0, 0.03D0,-0.01D0,62.65D0,   -5D0,-0.24D0,    0D0,
     :-0.11D0, -1.4D0,-0.03D0, 0.01D0,-38.57D0,49.59D0,0.08D0,  0.1D0,
     : 1.11D0, 0.86D0, 0.02D0,-33.22D0,-44.04D0,0.08D0,-0.1D0,-0.98D0,
     : 0.74D0, 0.02D0,37.15D0,-39.9D0,-0.12D0, -0.1D0,-0.89D0,-0.83D0,
     :-0.02D0,36.68D0,-39.5D0,-0.04D0, -0.1D0,-0.88D0,-0.82D0,-0.02D0,
     :-53.22D0,-3.91D0,-0.2D0,    0D0,-0.09D0, 1.19D0, 0.03D0,32.43D0,
     :-42.19D0,-0.04D0,-0.1D0,-0.94D0,-0.73D0,-0.02D0,  -51D0, -2.3D0,
     :-0.12D0, -0.1D0,    0D0, 1.14D0,-29.53D0,-39.11D0,0.04D0,   0D0,
     :-0.87D0, 0.66D0, 0.02D0, 28.5D0,-38.92D0,-0.08D0,-0.1D0,-0.87D0,
     :-0.64D0,-0.02D0,26.54D0,36.95D0,-0.12D0,  0.1D0, 0.83D0,-0.59D0 /
      DATA (A(I),I=866,1017) /
     :-0.01D0,26.54D0,34.59D0, 0.04D0, -0.1D0, 0.77D0,-0.59D0,-0.02D0,
     :28.35D0,-32.55D0,-0.16D0, 0.2D0,-0.73D0,-0.63D0,-0.01D0,  -28D0,
     : 30.4D0,    0D0,    0D0, 0.68D0, 0.63D0, 0.01D0,-27.61D0,29.4D0,
     :  0.2D0,  0.2D0, 0.66D0, 0.62D0, 0.02D0,40.33D0,  0.4D0,-0.04D0,
     :  0.1D0,    0D0, -0.9D0,-23.28D0,31.61D0,-0.08D0,-0.1D0, 0.71D0,
     : 0.52D0, 0.01D0,37.75D0,  0.8D0, 0.04D0,  0.1D0,    0D0,-0.84D0,
     :23.66D0, 25.8D0,    0D0,    0D0, 0.58D0,-0.53D0,-0.01D0,21.01D0,
     :-27.91D0,   0D0,    0D0,-0.62D0,-0.47D0,-0.01D0,-34.81D0,2.89D0,
     : 0.04D0,    0D0,    0D0, 0.78D0,-23.49D0,-25.31D0,  0D0,    0D0,
     :-0.57D0, 0.53D0, 0.01D0,-23.47D0,25.2D0, 0.16D0,  0.2D0, 0.56D0,
     : 0.52D0, 0.02D0,19.58D0, 27.5D0,-0.12D0,  0.1D0, 0.62D0,-0.44D0,
     :-0.01D0,-22.67D0,-24.4D0,-0.08D0, 0.1D0,-0.55D0, 0.51D0, 0.01D0,
     :-19.97D0,  25D0, 0.12D0,  0.2D0, 0.56D0, 0.45D0, 0.01D0,21.28D0,
     :-22.8D0,-0.08D0, -0.1D0,-0.51D0,-0.48D0,-0.01D0,-30.47D0,0.91D0,
     : 0.04D0,    0D0,    0D0, 0.68D0,18.58D0,   24D0, 0.04D0, -0.1D0,
     : 0.54D0,-0.42D0,-0.01D0,-18.02D0,24.4D0,-0.04D0, -0.1D0, 0.55D0,
     :  0.4D0, 0.01D0,17.74D0, 22.5D0, 0.08D0, -0.1D0,  0.5D0, -0.4D0,
     :-0.01D0,-19.41D0,20.7D0, 0.08D0,  0.1D0, 0.46D0, 0.43D0, 0.01D0,
     :-18.64D0,20.11D0,   0D0,    0D0, 0.45D0, 0.42D0, 0.01D0,-16.75D0 /
      DATA (A(I),I=1018,1169) /
     : 21.6D0, 0.04D0,  0.1D0, 0.48D0, 0.37D0, 0.01D0,-18.42D0, -20D0,
     :    0D0,    0D0,-0.45D0, 0.41D0, 0.01D0,-26.77D0,1.41D0, 0.08D0,
     :    0D0,    0D0,  0.6D0,-26.17D0,-0.19D0,   0D0,    0D0,    0D0,
     : 0.59D0,-15.52D0,20.51D0,   0D0,    0D0, 0.46D0, 0.35D0, 0.01D0,
     :-25.42D0,-1.91D0,-0.08D0,   0D0,-0.04D0, 0.57D0, 0.45D0,-17.42D0,
     : 18.1D0,    0D0,    0D0,  0.4D0, 0.39D0, 0.01D0,16.39D0,-17.6D0,
     :-0.08D0, -0.1D0,-0.39D0,-0.37D0,-0.01D0,-14.37D0,18.91D0,   0D0,
     :    0D0, 0.42D0, 0.32D0, 0.01D0,23.39D0, -2.4D0,-0.12D0,    0D0,
     :    0D0,-0.52D0,14.32D0,-18.5D0,-0.04D0, -0.1D0,-0.41D0,-0.32D0,
     :-0.01D0,15.69D0,17.08D0,    0D0,    0D0, 0.38D0,-0.35D0,-0.01D0,
     :-22.99D0, 0.5D0, 0.04D0,    0D0,    0D0, 0.51D0,    0D0,    0D0,
     :14.47D0,-17.6D0,-0.01D0,    0D0,-0.39D0,-0.32D0,-13.33D0,18.4D0,
     :-0.04D0, -0.1D0, 0.41D0,  0.3D0,22.47D0, -0.6D0,-0.04D0,    0D0,
     :    0D0, -0.5D0,-12.78D0,-17.41D0,0.04D0,   0D0,-0.39D0, 0.29D0,
     : 0.01D0,-14.1D0,-15.31D0,0.04D0,    0D0,-0.34D0, 0.32D0, 0.01D0,
     :11.98D0,16.21D0,-0.04D0,    0D0, 0.36D0,-0.27D0,-0.01D0,19.65D0,
     : -1.9D0,-0.08D0,    0D0,    0D0,-0.44D0,19.61D0, -1.5D0,-0.08D0,
     :    0D0,    0D0,-0.44D0,13.41D0,-14.3D0,-0.04D0, -0.1D0,-0.32D0,
     : -0.3D0,-0.01D0,-13.29D0,14.4D0,    0D0,    0D0, 0.32D0,  0.3D0 /
      DATA (A(I),I=1170,1321) /
     : 0.01D0,11.14D0,-14.4D0,-0.04D0,    0D0,-0.32D0,-0.25D0,-0.01D0,
     :12.24D0,-13.38D0,0.04D0,    0D0, -0.3D0,-0.27D0,-0.01D0,10.07D0,
     :-13.81D0,0.04D0,    0D0,-0.31D0,-0.23D0,-0.01D0,10.46D0, 13.1D0,
     : 0.08D0, -0.1D0, 0.29D0,-0.23D0,-0.01D0,16.55D0,-1.71D0,-0.08D0,
     :    0D0,    0D0,-0.37D0, 9.75D0,-12.8D0,    0D0,    0D0,-0.29D0,
     :-0.22D0,-0.01D0, 9.11D0, 12.8D0,    0D0,    0D0, 0.29D0, -0.2D0,
     :    0D0,    0D0,-6.44D0,-13.8D0,    0D0,    0D0,-0.31D0, 0.14D0,
     :-9.19D0,  -12D0,    0D0,    0D0,-0.27D0, 0.21D0,-10.3D0, 10.9D0,
     : 0.08D0,  0.1D0, 0.24D0, 0.23D0, 0.01D0,14.92D0, -0.8D0,-0.04D0,
     :    0D0,    0D0,-0.33D0,10.02D0,-10.8D0,    0D0,    0D0,-0.24D0,
     :-0.22D0,-0.01D0,-9.75D0, 10.4D0, 0.04D0,    0D0, 0.23D0, 0.22D0,
     : 0.01D0, 9.67D0,-10.4D0,-0.04D0,    0D0,-0.23D0,-0.22D0,-0.01D0,
     :-8.28D0,-11.2D0, 0.04D0,    0D0,-0.25D0, 0.19D0,13.32D0,-1.41D0,
     :-0.08D0,    0D0,    0D0, -0.3D0, 8.27D0, 10.5D0, 0.04D0,    0D0,
     : 0.23D0,-0.19D0,    0D0,    0D0,13.13D0,    0D0,    0D0,    0D0,
     :    0D0,-0.29D0,-12.93D0, 0.7D0, 0.04D0,    0D0,    0D0, 0.29D0,
     : 7.91D0,-10.2D0,    0D0,    0D0,-0.23D0,-0.18D0,-7.84D0,  -10D0,
     :-0.04D0,    0D0,-0.22D0, 0.18D0, 7.44D0,  9.6D0,    0D0,    0D0,
     : 0.21D0,-0.17D0,-7.64D0,  9.4D0, 0.08D0,  0.1D0, 0.21D0, 0.17D0 /
      DATA (A(I),I=1322,1473) /
     : 0.01D0,-11.38D0, 0.6D0, 0.04D0,    0D0,    0D0, 0.25D0,-7.48D0,
     :  8.3D0,    0D0,    0D0, 0.19D0, 0.17D0,-10.98D0,-0.2D0,    0D0,
     :    0D0,    0D0, 0.25D0,10.98D0,  0.2D0,    0D0,    0D0,    0D0,
     :-0.25D0,  7.4D0, -7.9D0,-0.04D0,    0D0,-0.18D0,-0.17D0,-6.09D0,
     :  8.4D0,-0.04D0,    0D0, 0.19D0, 0.14D0,-6.94D0,-7.49D0,    0D0,
     :    0D0,-0.17D0, 0.16D0, 6.92D0,  7.5D0, 0.04D0,    0D0, 0.17D0,
     :-0.15D0,  6.2D0, 8.09D0,    0D0,    0D0, 0.18D0,-0.14D0,-6.12D0,
     :  7.8D0, 0.04D0,    0D0, 0.17D0, 0.14D0, 5.85D0, -7.5D0,    0D0,
     :    0D0,-0.17D0,-0.13D0,-6.48D0,  6.9D0, 0.08D0,  0.1D0, 0.15D0,
     : 0.14D0, 0.01D0, 6.32D0,  6.9D0,    0D0,    0D0, 0.15D0,-0.14D0,
     : 5.61D0, -7.2D0,    0D0,    0D0,-0.16D0,-0.13D0, 9.07D0,    0D0,
     :    0D0,    0D0,    0D0, -0.2D0, 5.25D0,  6.9D0,    0D0,    0D0,
     : 0.15D0,-0.12D0,-8.47D0, -0.4D0,    0D0,    0D0,    0D0, 0.19D0,
     : 6.32D0,-5.39D0,-1.11D0,  1.1D0,-0.12D0,-0.14D0, 0.02D0, 0.02D0,
     : 5.73D0, -6.1D0,-0.04D0,    0D0,-0.14D0,-0.13D0,  4.7D0,  6.6D0,
     :-0.04D0,    0D0, 0.15D0,-0.11D0, -4.9D0, -6.4D0,    0D0,    0D0,
     :-0.14D0, 0.11D0,-5.33D0,  5.6D0, 0.04D0,  0.1D0, 0.13D0, 0.12D0,
     : 0.01D0,-4.81D0,    6D0, 0.04D0,    0D0, 0.13D0, 0.11D0, 5.13D0,
     :  5.5D0, 0.04D0,    0D0, 0.12D0,-0.11D0,  4.5D0,  5.9D0,    0D0 /
      DATA (A(I),I=1474,1625) /
     :    0D0, 0.13D0, -0.1D0,-4.22D0,  6.1D0,    0D0,    0D0, 0.14D0,
     :-4.53D0,  5.7D0,    0D0,    0D0, 0.13D0,  0.1D0, 4.18D0,  5.7D0,
     :    0D0,    0D0, 0.13D0,-4.75D0,-5.19D0,    0D0,    0D0,-0.12D0,
     : 0.11D0,-4.06D0,  5.6D0,    0D0,    0D0, 0.13D0,-3.98D0,  5.6D0,
     :-0.04D0,    0D0, 0.13D0, 4.02D0, -5.4D0,    0D0,    0D0,-0.12D0,
     : 4.49D0, -4.9D0,-0.04D0,    0D0,-0.11D0, -0.1D0,-3.62D0, -5.4D0,
     :-0.16D0,  0.2D0,-0.12D0,    0D0, 0.01D0, 4.38D0,  4.8D0,    0D0,
     :    0D0, 0.11D0, -6.4D0, -0.1D0,    0D0,    0D0,    0D0, 0.14D0,
     :-3.98D0,    5D0, 0.04D0,    0D0, 0.11D0,-3.82D0,   -5D0,    0D0,
     :    0D0,-0.11D0,-3.71D0, 5.07D0,    0D0,    0D0, 0.11D0, 4.14D0,
     :  4.4D0,    0D0,    0D0,  0.1D0,-6.01D0, -0.5D0,-0.04D0,    0D0,
     :    0D0, 0.13D0,-4.04D0, 4.39D0,    0D0,    0D0,  0.1D0, 3.45D0,
     :-4.72D0,    0D0,    0D0,-0.11D0, 3.31D0, 4.71D0,    0D0,    0D0,
     : 0.11D0, 3.26D0, -4.5D0,    0D0,    0D0, -0.1D0,-3.26D0, -4.5D0,
     :    0D0,    0D0, -0.1D0,-3.34D0, -4.4D0,    0D0,    0D0, -0.1D0,
     :-3.74D0,   -4D0,  3.7D0,    4D0, 3.34D0, -4.3D0,  3.3D0, -4.3D0,
     :-3.66D0,  3.9D0, 0.04D0, 3.66D0,  3.9D0, 0.04D0,-3.62D0, -3.9D0,
     :-3.61D0,  3.9D0, -0.2D0,  5.3D0,    0D0,    0D0, 0.12D0, 3.06D0,
     :  4.3D0,  3.3D0,    4D0,  0.4D0,  0.2D0,  3.1D0,  4.1D0,-3.06D0 /
      DATA (A(I),I=1626,1777) /
     :  3.9D0, -3.3D0, -3.6D0, -3.3D0, 3.36D0, 0.01D0, 3.14D0,  3.4D0,
     :-4.57D0, -0.2D0,    0D0,    0D0,    0D0,  0.1D0, -2.7D0, -3.6D0,
     : 2.94D0, -3.2D0, -2.9D0,  3.2D0, 2.47D0, -3.4D0, 2.55D0, -3.3D0,
     :  2.8D0,-3.08D0, 2.51D0,  3.3D0, -4.1D0,  0.3D0,-0.12D0, -0.1D0,
     :  4.1D0,  0.2D0,-2.74D0,    3D0, 2.46D0, 3.23D0,-3.66D0,  1.2D0,
     : -0.2D0,  0.2D0, 3.74D0, -0.4D0,-2.51D0, -2.8D0,-3.74D0, 2.27D0,
     : -2.9D0,    0D0,    0D0, -2.5D0,  2.7D0,-2.51D0,  2.6D0, -3.5D0,
     :  0.2D0, 3.38D0,-2.22D0, -2.5D0, 3.26D0, -0.4D0, 1.95D0, -2.6D0,
     : 3.22D0, -0.4D0,-0.04D0,-1.79D0, -2.6D0, 1.91D0,  2.5D0, 0.74D0,
     : 3.05D0,-0.04D0, 0.08D0, 2.11D0, -2.3D0,-2.11D0,  2.2D0,-1.87D0,
     : -2.4D0, 2.03D0, -2.2D0,-2.03D0,  2.2D0, 2.98D0,    0D0,    0D0,
     : 2.98D0,-1.71D0,  2.4D0, 2.94D0, -0.1D0,-0.12D0,  0.1D0, 1.67D0,
     :  2.4D0,-1.79D0,  2.3D0,-1.79D0,  2.2D0,-1.67D0,  2.2D0, 1.79D0,
     :   -2D0, 1.87D0, -1.9D0, 1.63D0, -2.1D0,-1.59D0,  2.1D0, 1.55D0,
     : -2.1D0,-1.55D0,  2.1D0,-2.59D0, -0.2D0,-1.75D0, -1.9D0,-1.75D0,
     :  1.9D0,-1.83D0, -1.8D0, 1.51D0,    2D0,-1.51D0,   -2D0, 1.71D0,
     :  1.8D0, 1.31D0,  2.1D0,-1.43D0,    2D0, 1.43D0,    2D0,-2.43D0,
     :-1.51D0,  1.9D0,-1.47D0,  1.9D0, 2.39D0,  0.2D0,-2.39D0, 1.39D0,
     :  1.9D0, 1.39D0, -1.8D0, 1.47D0, -1.6D0, 1.47D0, -1.6D0, 1.43D0 /
      DATA (A(I),I=1778,1929) /
     : -1.5D0,-1.31D0,  1.6D0, 1.27D0, -1.6D0,-1.27D0,  1.6D0, 1.27D0,
     : -1.6D0, 2.03D0, 1.35D0,  1.5D0,-1.39D0, -1.4D0, 1.95D0, -0.2D0,
     :-1.27D0, 1.49D0, 1.19D0,  1.5D0, 1.27D0,  1.4D0, 1.15D0,  1.5D0,
     : 1.87D0, -0.1D0,-1.12D0, -1.5D0, 1.87D0,-1.11D0, -1.5D0,-1.11D0,
     : -1.5D0,    0D0,    0D0, 1.19D0,  1.4D0, 1.27D0, -1.3D0,-1.27D0,
     : -1.3D0,-1.15D0,  1.4D0,-1.23D0,  1.3D0,-1.23D0, -1.3D0, 1.22D0,
     :-1.29D0, 1.07D0, -1.4D0, 1.75D0, -0.2D0,-1.03D0, -1.4D0,-1.07D0,
     :  1.2D0,-1.03D0, 1.15D0, 1.07D0,  1.1D0, 1.51D0,-1.03D0,  1.1D0,
     : 1.03D0, -1.1D0,    0D0,    0D0,-1.03D0, -1.1D0, 0.91D0, -1.2D0,
     :-0.88D0, -1.2D0,-0.88D0,  1.2D0,-0.95D0,  1.1D0,-0.95D0, -1.1D0,
     : 1.43D0,-1.39D0, 0.95D0,   -1D0,-0.95D0,    1D0, -0.8D0,  1.1D0,
     : 0.91D0,   -1D0,-1.35D0, 0.88D0,    1D0,-0.83D0,    1D0,-0.91D0,
     :  0.9D0, 0.91D0,  0.9D0, 0.88D0, -0.9D0,-0.76D0,   -1D0,-0.76D0,
     :    1D0, 0.76D0,    1D0,-0.72D0,    1D0, 0.84D0, -0.9D0, 0.84D0,
     :  0.9D0, 1.23D0,    0D0,    0D0,-0.52D0, -1.1D0,-0.68D0,    1D0,
     : 1.19D0, -0.2D0, 1.19D0, 0.76D0,  0.9D0, 1.15D0, -0.1D0, 1.15D0,
     : -0.1D0, 0.72D0, -0.9D0,-1.15D0,-1.15D0, 0.68D0,  0.9D0,-0.68D0,
     :  0.9D0,-1.11D0,    0D0,    0D0,  0.2D0, 0.79D0,  0.8D0,-1.11D0,
     : -0.1D0,    0D0,    0D0,-0.48D0,   -1D0,-0.76D0, -0.8D0,-0.72D0 /
      DATA (A(I),I=1930,2081) /
     : -0.8D0,-1.07D0, -0.1D0, 0.64D0,  0.8D0,-0.64D0, -0.8D0, 0.64D0,
     :  0.8D0,  0.4D0,  0.6D0, 0.52D0, -0.5D0, -0.6D0, -0.8D0,-0.71D0,
     :  0.7D0,-0.99D0, 0.99D0, 0.56D0,  0.8D0,-0.56D0,  0.8D0, 0.68D0,
     : -0.7D0, 0.68D0,  0.7D0,-0.95D0,-0.64D0,  0.7D0, 0.64D0,  0.7D0,
     : -0.6D0,  0.7D0, -0.6D0, -0.7D0,-0.91D0, -0.1D0,-0.51D0, 0.76D0,
     :-0.91D0,-0.56D0,  0.7D0, 0.88D0, 0.88D0,-0.63D0, -0.6D0, 0.55D0,
     : -0.6D0, -0.8D0,  0.8D0, -0.8D0,-0.52D0,  0.6D0, 0.52D0,  0.6D0,
     : 0.52D0, -0.6D0,-0.48D0,  0.6D0, 0.48D0,  0.6D0, 0.48D0,  0.6D0,
     :-0.76D0, 0.44D0, -0.6D0, 0.52D0, -0.5D0,-0.52D0,  0.5D0,  0.4D0,
     :  0.6D0, -0.4D0, -0.6D0,  0.4D0, -0.6D0, 0.72D0,-0.72D0,-0.51D0,
     : -0.5D0,-0.48D0,  0.5D0, 0.48D0, -0.5D0,-0.48D0,  0.5D0,-0.48D0,
     :  0.5D0, 0.48D0, -0.5D0,-0.48D0, -0.5D0,-0.68D0,-0.68D0, 0.44D0,
     :  0.5D0,-0.64D0, -0.1D0,-0.64D0, -0.1D0, -0.4D0,  0.5D0,  0.4D0,
     :  0.5D0,  0.4D0,  0.5D0,    0D0,    0D0, -0.4D0, -0.5D0,-0.36D0,
     : -0.5D0, 0.36D0, -0.5D0,  0.6D0, -0.6D0,  0.4D0, -0.4D0,  0.4D0,
     :  0.4D0, -0.4D0,  0.4D0, -0.4D0,  0.4D0,-0.56D0,-0.56D0, 0.36D0,
     : -0.4D0,-0.36D0,  0.4D0, 0.36D0, -0.4D0,-0.36D0, -0.4D0, 0.36D0,
     :  0.4D0, 0.36D0,  0.4D0,-0.52D0, 0.52D0, 0.52D0, 0.32D0,  0.4D0,
     :-0.32D0,  0.4D0,-0.32D0,  0.4D0,-0.32D0,  0.4D0, 0.32D0, -0.4D0 /
      DATA (A(I),I=2082,2233) /
     :-0.32D0, -0.4D0, 0.32D0, -0.4D0, 0.28D0, -0.4D0,-0.28D0,  0.4D0,
     : 0.28D0, -0.4D0, 0.28D0,  0.4D0, 0.48D0,-0.48D0, 0.48D0, 0.36D0,
     : -0.3D0,-0.36D0, -0.3D0,    0D0,    0D0,  0.2D0,  0.4D0,-0.44D0,
     : 0.44D0,-0.44D0,-0.44D0,-0.44D0,-0.44D0, 0.32D0, -0.3D0, 0.32D0,
     :  0.3D0, 0.24D0,  0.3D0,-0.12D0, -0.1D0,-0.28D0,  0.3D0, 0.28D0,
     :  0.3D0, 0.28D0,  0.3D0, 0.28D0, -0.3D0, 0.28D0, -0.3D0, 0.28D0,
     : -0.3D0, 0.28D0,  0.3D0,-0.28D0,  0.3D0,  0.4D0,  0.4D0,-0.24D0,
     :  0.3D0, 0.24D0, -0.3D0, 0.24D0, -0.3D0,-0.24D0, -0.3D0, 0.24D0,
     :  0.3D0, 0.24D0, -0.3D0,-0.24D0,  0.3D0, 0.24D0, -0.3D0,-0.24D0,
     : -0.3D0, 0.24D0, -0.3D0, 0.24D0,  0.3D0,-0.24D0,  0.3D0,-0.24D0,
     :  0.3D0,  0.2D0, -0.3D0,  0.2D0, -0.3D0,  0.2D0, -0.3D0,  0.2D0,
     :  0.3D0,  0.2D0, -0.3D0,  0.2D0, -0.3D0,  0.2D0,  0.3D0,  0.2D0,
     :  0.3D0, -0.2D0, -0.3D0,  0.2D0, -0.3D0,  0.2D0, -0.3D0,-0.36D0,
     :-0.36D0,-0.36D0,-0.04D0,  0.3D0, 0.12D0, -0.1D0,-0.32D0,-0.24D0,
     :  0.2D0, 0.24D0,  0.2D0,  0.2D0, -0.2D0, -0.2D0, -0.2D0, -0.2D0,
     : -0.2D0,  0.2D0,  0.2D0,  0.2D0, -0.2D0,  0.2D0,  0.2D0,  0.2D0,
     :  0.2D0, -0.2D0, -0.2D0,    0D0,    0D0, -0.2D0, -0.2D0, -0.2D0,
     :  0.2D0, -0.2D0,  0.2D0,  0.2D0, -0.2D0, -0.2D0, -0.2D0,  0.2D0,
     :  0.2D0,  0.2D0,  0.2D0,  0.2D0, -0.2D0,  0.2D0, -0.2D0, 0.28D0 /
      DATA (A(I),I=2234,2385) /
     : 0.28D0, 0.28D0, 0.28D0, 0.28D0, 0.28D0,-0.28D0, 0.28D0, 0.12D0,
     :    0D0, 0.24D0, 0.16D0, -0.2D0, 0.16D0, -0.2D0, 0.16D0, -0.2D0,
     : 0.16D0,  0.2D0,-0.16D0,  0.2D0, 0.16D0,  0.2D0,-0.16D0,  0.2D0,
     :-0.16D0,  0.2D0,-0.16D0,  0.2D0, 0.16D0, -0.2D0, 0.16D0,  0.2D0,
     : 0.16D0, -0.2D0,-0.16D0,  0.2D0,-0.16D0, -0.2D0,-0.16D0,  0.2D0,
     : 0.16D0,  0.2D0, 0.16D0, -0.2D0, 0.16D0, -0.2D0, 0.16D0,  0.2D0,
     : 0.16D0,  0.2D0, 0.16D0,  0.2D0,-0.16D0, -0.2D0, 0.16D0,  0.2D0,
     :-0.16D0,  0.2D0, 0.16D0,  0.2D0,-0.16D0, -0.2D0, 0.16D0, -0.2D0,
     : 0.16D0, -0.2D0,-0.16D0, -0.2D0, 0.24D0,-0.24D0,-0.24D0, 0.24D0,
     : 0.24D0, 0.12D0,  0.2D0, 0.12D0,  0.2D0,-0.12D0, -0.2D0, 0.12D0,
     : -0.2D0, 0.12D0, -0.2D0,-0.12D0,  0.2D0,-0.12D0,  0.2D0,-0.12D0,
     : -0.2D0, 0.12D0,  0.2D0, 0.12D0,  0.2D0, 0.12D0, -0.2D0,-0.12D0,
     :  0.2D0, 0.12D0, -0.2D0,-0.12D0,  0.2D0, 0.12D0,  0.2D0,    0D0,
     :    0D0,-0.12D0,  0.2D0,-0.12D0,  0.2D0, 0.12D0, -0.2D0,-0.12D0,
     :  0.2D0, 0.12D0,  0.2D0,    0D0,-0.21D0, -0.2D0,    0D0,    0D0,
     :  0.2D0, -0.2D0, -0.2D0, -0.2D0,  0.2D0,-0.16D0, -0.1D0,    0D0,
     : 0.17D0, 0.16D0, 0.16D0, 0.16D0, 0.16D0,-0.16D0, 0.16D0, 0.16D0,
     :-0.16D0, 0.16D0,-0.16D0, 0.16D0, 0.12D0,  0.1D0, 0.12D0, -0.1D0,
     :-0.12D0,  0.1D0,-0.12D0,  0.1D0, 0.12D0, -0.1D0,-0.12D0, 0.12D0 /
      DATA (A(I),I=2386,2537) /
     :-0.12D0, 0.12D0,-0.12D0, 0.12D0,-0.12D0,-0.12D0,-0.12D0,-0.12D0,
     :-0.12D0,-0.12D0,-0.12D0, 0.12D0, 0.12D0, 0.12D0, 0.12D0,-0.12D0,
     :-0.12D0, 0.12D0, 0.12D0, 0.12D0,-0.12D0, 0.12D0,-0.12D0,-0.12D0,
     :-0.12D0, 0.12D0,-0.12D0,-0.12D0, 0.12D0,    0D0, 0.11D0, 0.11D0,
     :-122.67D0,164.7D0,203.78D0,273.5D0,3.58D0,2.74D0,6.18D0,-4.56D0,
     :    0D0,-0.04D0,    0D0,-0.07D0,57.44D0,-77.1D0,95.82D0,128.6D0,
     :-1.77D0,-1.28D0, 2.85D0,-2.14D0,82.14D0, 89.5D0,    0D0,    0D0,
     :    2D0,-1.84D0,-0.04D0,47.73D0,-64.1D0,23.79D0, 31.9D0,-1.45D0,
     :-1.07D0, 0.69D0,-0.53D0,-46.38D0,50.5D0,    0D0,    0D0, 1.13D0,
     : 1.04D0, 0.02D0,-18.38D0,   0D0, 63.8D0,    0D0,    0D0, 0.41D0,
     :    0D0,-1.43D0,59.07D0,    0D0,    0D0,    0D0,    0D0,-1.32D0,
     :57.28D0,    0D0,    0D0,    0D0,    0D0,-1.28D0,-48.65D0,   0D0,
     :-1.15D0,    0D0,    0D0, 1.09D0,    0D0, 0.03D0,-18.3D0, 24.6D0,
     :-17.3D0,-23.2D0, 0.56D0, 0.41D0,-0.51D0, 0.39D0,-16.91D0,26.9D0,
     : 8.43D0, 13.3D0,  0.6D0, 0.38D0, 0.31D0,-0.19D0, 1.23D0, -1.7D0,
     :-19.13D0,-25.7D0,-0.03D0,-0.03D0,-0.58D0,0.43D0,-0.72D0,  0.9D0,
     :-17.34D0,-23.3D0,0.03D0, 0.02D0,-0.52D0, 0.39D0,-19.49D0,-21.3D0,
     :    0D0,    0D0,-0.48D0, 0.44D0, 0.01D0,20.57D0,-20.1D0, 0.64D0,
     :  0.7D0,-0.45D0,-0.46D0,    0D0,-0.01D0, 4.89D0,  5.9D0,-16.55D0 /
      DATA (A(I),I=2538,2689) /
     : 19.9D0, 0.14D0,-0.11D0, 0.44D0, 0.37D0,18.22D0, 19.8D0,    0D0,
     :    0D0, 0.44D0,-0.41D0,-0.01D0, 4.89D0, -5.3D0,-16.51D0, -18D0,
     :-0.11D0,-0.11D0,-0.41D0, 0.37D0,-17.86D0,   0D0, 17.1D0,    0D0,
     :    0D0,  0.4D0,    0D0,-0.38D0, 0.32D0,    0D0,24.42D0,    0D0,
     :    0D0,-0.01D0,    0D0,-0.55D0,-23.79D0,   0D0,    0D0,    0D0,
     :    0D0, 0.53D0,14.72D0,  -16D0,-0.32D0,    0D0,-0.36D0,-0.33D0,
     :-0.01D0, 0.01D0, 3.34D0, -4.5D0,11.86D0, 15.9D0,-0.11D0,-0.07D0,
     : 0.35D0,-0.27D0,-3.26D0,  4.4D0,11.62D0, 15.6D0, 0.09D0, 0.07D0,
     : 0.35D0,-0.26D0,-19.53D0,   0D0, 5.09D0,    0D0,    0D0, 0.44D0,
     :    0D0,-0.11D0,-13.48D0,14.7D0,    0D0,    0D0, 0.33D0,  0.3D0,
     : 0.01D0,10.86D0,-14.6D0, 3.18D0,  4.3D0,-0.33D0,-0.24D0, 0.09D0,
     :-0.07D0,-11.3D0,-15.1D0,    0D0,    0D0,-0.34D0, 0.25D0, 0.01D0,
     : 2.03D0, -2.7D0,10.82D0, 14.5D0,-0.07D0,-0.05D0, 0.32D0,-0.24D0,
     :17.46D0,    0D0,    0D0,    0D0,    0D0,-0.39D0,16.43D0,    0D0,
     : 0.52D0,    0D0,    0D0,-0.37D0,    0D0,-0.01D0, 9.35D0,    0D0,
     :13.29D0,    0D0,    0D0,-0.21D0,    0D0, -0.3D0,-10.42D0,11.4D0,
     :    0D0,    0D0, 0.25D0, 0.23D0, 0.01D0, 0.44D0,  0.5D0,-10.38D0,
     : 11.3D0, 0.02D0,-0.01D0, 0.25D0, 0.23D0,-14.64D0,   0D0,    0D0,
     :    0D0,    0D0, 0.33D0, 0.56D0,  0.8D0,-8.67D0, 11.7D0, 0.02D0 /
      DATA (A(I),I=2690,2841) /
     :-0.01D0, 0.26D0, 0.19D0,13.88D0,    0D0,-2.47D0,    0D0,    0D0,
     :-0.31D0,    0D0, 0.06D0,-1.99D0,  2.7D0, 7.72D0, 10.3D0, 0.06D0,
     : 0.04D0, 0.23D0,-0.17D0, -0.2D0,    0D0,13.05D0,    0D0,    0D0,
     :    0D0,    0D0,-0.29D0, 6.92D0, -9.3D0, 3.34D0,  4.5D0,-0.21D0,
     :-0.15D0,  0.1D0,-0.07D0, -6.6D0,    0D0, 10.7D0,    0D0,    0D0,
     : 0.15D0,    0D0,-0.24D0,-8.04D0, -8.7D0,    0D0,    0D0,-0.19D0,
     : 0.18D0,-10.58D0,   0D0, -3.1D0,    0D0,    0D0, 0.24D0,    0D0,
     : 0.07D0,-7.32D0,    8D0,-0.12D0, -0.1D0, 0.18D0, 0.16D0, 1.63D0,
     :  1.7D0, 6.96D0, -7.6D0, 0.03D0,-0.04D0,-0.17D0,-0.16D0,-3.62D0,
     :    0D0, 9.86D0,    0D0,    0D0, 0.08D0,    0D0,-0.22D0,  0.2D0,
     : -0.2D0,-6.88D0, -7.5D0,    0D0,    0D0,-0.17D0, 0.15D0,-8.99D0,
     :    0D0, 4.02D0,    0D0,    0D0,  0.2D0,    0D0,-0.09D0,-1.07D0,
     :  1.4D0,-5.69D0, -7.7D0, 0.03D0, 0.02D0,-0.17D0, 0.13D0, 6.48D0,
     : -7.2D0,-0.48D0, -0.5D0,-0.16D0,-0.14D0,-0.01D0, 0.01D0, 5.57D0,
     : -7.5D0, 1.07D0,  1.4D0,-0.17D0,-0.12D0, 0.03D0,-0.02D0, 8.71D0,
     :    0D0, 3.54D0,    0D0,    0D0,-0.19D0,    0D0,-0.08D0,  0.4D0,
     :    0D0, 9.27D0,    0D0,    0D0,-0.01D0,    0D0,-0.21D0,-6.13D0,
     :  6.7D0,-1.19D0, -1.3D0, 0.15D0, 0.14D0,-0.03D0, 0.03D0, 5.21D0,
     : -5.7D0,-2.51D0, -2.6D0,-0.13D0,-0.12D0,-0.06D0, 0.06D0, 5.69D0 /
      DATA (A(I),I=2842,2993) /
     : -6.2D0,-0.12D0, -0.1D0,-0.14D0,-0.13D0,-0.01D0, 2.03D0, -2.7D0,
     : 4.53D0,  6.1D0,-0.06D0,-0.05D0, 0.14D0, -0.1D0, 5.01D0,  5.5D0,
     :-2.51D0,  2.7D0, 0.12D0,-0.11D0, 0.06D0, 0.06D0,-1.91D0,  2.6D0,
     :-4.38D0, -5.9D0, 0.06D0, 0.04D0,-0.13D0,  0.1D0, 4.65D0, -6.3D0,
     :    0D0,    0D0,-0.14D0, -0.1D0,-5.29D0,  5.7D0,    0D0,    0D0,
     : 0.13D0, 0.12D0,-2.23D0,   -4D0,-4.65D0,  4.2D0,-0.09D0, 0.05D0,
     :  0.1D0,  0.1D0,-4.53D0,  6.1D0,    0D0,    0D0, 0.14D0,  0.1D0,
     : 2.47D0,  2.7D0,-4.46D0,  4.9D0, 0.06D0,-0.06D0, 0.11D0,  0.1D0,
     :-5.05D0,  5.5D0, 0.84D0,  0.9D0, 0.12D0, 0.11D0, 0.02D0,-0.02D0,
     : 4.97D0, -5.4D0,-1.71D0,    0D0,-0.12D0,-0.11D0,    0D0, 0.04D0,
     :-0.99D0, -1.3D0, 4.22D0, -5.7D0,-0.03D0, 0.02D0,-0.13D0,-0.09D0,
     : 0.99D0,  1.4D0, 4.22D0, -5.6D0, 0.03D0,-0.02D0,-0.13D0,-0.09D0,
     :-4.69D0, -5.2D0,    0D0,    0D0,-0.12D0,  0.1D0,-3.42D0,    0D0,
     : 6.09D0,    0D0,    0D0, 0.08D0,    0D0,-0.14D0,-4.65D0, -5.1D0,
     :    0D0,    0D0,-0.11D0,  0.1D0,    0D0,    0D0,-4.53D0,   -5D0,
     :    0D0,    0D0,-0.11D0,  0.1D0,-2.43D0, -2.7D0,-3.82D0,  4.2D0,
     :-0.06D0, 0.05D0,  0.1D0, 0.09D0,    0D0,    0D0,-4.53D0,  4.9D0,
     :    0D0,    0D0, 0.11D0,  0.1D0,-4.49D0, -4.9D0,    0D0,    0D0,
     :-0.11D0,  0.1D0, 2.67D0, -2.9D0,-3.62D0, -3.9D0,-0.06D0,-0.06D0 /
      DATA (A(I),I=2994,3145) /
     :-0.09D0, 0.08D0, 3.94D0, -5.3D0,    0D0,    0D0,-0.12D0,-3.38D0,
     :  3.7D0,-2.78D0, -3.1D0, 0.08D0, 0.08D0,-0.07D0, 0.06D0, 3.18D0,
     : -3.5D0,-2.82D0, -3.1D0,-0.08D0,-0.07D0,-0.07D0, 0.06D0,-5.77D0,
     :    0D0, 1.87D0,    0D0,    0D0, 0.13D0,    0D0,-0.04D0, 3.54D0,
     : -4.8D0,-0.64D0, -0.9D0,-0.11D0,    0D0,-0.02D0, -3.5D0, -4.7D0,
     : 0.68D0, -0.9D0,-0.11D0,    0D0,-0.02D0, 5.49D0,    0D0,    0D0,
     :    0D0,    0D0,-0.12D0, 1.83D0, -2.5D0, 2.63D0,  3.5D0,-0.06D0,
     :    0D0, 0.08D0, 3.02D0, -4.1D0, 0.68D0,  0.9D0,-0.09D0,    0D0,
     : 0.02D0,    0D0,    0D0, 5.21D0,    0D0,    0D0,    0D0,    0D0,
     :-0.12D0,-3.54D0,  3.8D0,  2.7D0,  3.6D0,-1.35D0,  1.8D0, 0.08D0,
     :    0D0, 0.04D0, -2.9D0,  3.9D0, 0.68D0,  0.9D0, 0.09D0,    0D0,
     : 0.02D0,  0.8D0, -1.1D0,-2.78D0, -3.7D0,-0.02D0,    0D0,-0.08D0,
     :  4.1D0,    0D0,-2.39D0,    0D0,    0D0,-0.09D0,    0D0, 0.05D0,
     :-1.59D0,  2.1D0, 2.27D0,    3D0, 0.05D0,    0D0, 0.07D0,-2.63D0,
     :  3.5D0,-0.48D0, -0.6D0,-2.94D0, -3.2D0,-2.94D0,  3.2D0, 2.27D0,
     :   -3D0,-1.11D0, -1.5D0,-0.07D0,    0D0,-0.03D0,-0.56D0, -0.8D0,
     :-2.35D0,  3.1D0,    0D0, -0.6D0,-3.42D0,  1.9D0,-0.12D0, -0.1D0,
     : 2.63D0, -2.9D0, 2.51D0,  2.8D0,-0.64D0,  0.7D0,-0.48D0, -0.6D0,
     : 2.19D0, -2.9D0, 0.24D0, -0.3D0, 2.15D0,  2.9D0, 2.15D0, -2.9D0 /
      DATA (A(I),I=3146,3297) /
     : 0.52D0,  0.7D0, 2.07D0, -2.8D0, -3.1D0,    0D0, 1.79D0,    0D0,
     :    0D0, 0.07D0,    0D0,-0.04D0, 0.88D0,    0D0,-3.46D0, 2.11D0,
     :  2.8D0,-0.36D0,  0.5D0, 3.54D0, -0.2D0, -3.5D0,-1.39D0,  1.5D0,
     :-1.91D0, -2.1D0,-1.47D0,    2D0, 1.39D0,  1.9D0, 2.07D0, -2.3D0,
     : 0.91D0,    1D0, 1.99D0, -2.7D0,  3.3D0,    0D0,  0.6D0,-0.44D0,
     : -0.7D0,-1.95D0,  2.6D0, 2.15D0, -2.4D0, -0.6D0, -0.7D0,  3.3D0,
     : 0.84D0,    0D0, -3.1D0, -3.1D0,    0D0,-0.72D0,-0.32D0,  0.4D0,
     :-1.87D0, -2.5D0, 1.87D0, -2.5D0, 0.32D0,  0.4D0,-0.24D0,  0.3D0,
     :-1.87D0, -2.5D0,-0.24D0, -0.3D0, 1.87D0, -2.5D0, -2.7D0,    0D0,
     : 1.55D0, 2.03D0,  2.2D0,-2.98D0,-1.99D0, -2.2D0, 0.12D0, -0.1D0,
     : -0.4D0,  0.5D0, 1.59D0,  2.1D0,    0D0,    0D0,-1.79D0,    2D0,
     :-1.03D0,  1.4D0,-1.15D0, -1.6D0, 0.32D0,  0.5D0, 1.39D0, -1.9D0,
     : 2.35D0,-1.27D0,  1.7D0,  0.6D0,  0.8D0,-0.32D0, -0.4D0, 1.35D0,
     : -1.8D0, 0.44D0,    0D0, 2.23D0,-0.84D0,  0.9D0,-1.27D0, -1.4D0,
     :-1.47D0,  1.6D0,-0.28D0, -0.3D0,-0.28D0,  0.4D0,-1.27D0, -1.7D0,
     : 0.28D0, -0.4D0,-1.43D0, -1.5D0,    0D0,    0D0,-1.27D0, -1.7D0,
     : 2.11D0,-0.32D0, -0.4D0,-1.23D0,  1.6D0, 1.19D0, -1.3D0,-0.72D0,
     : -0.8D0, 0.72D0, -0.8D0,-1.15D0, -1.3D0,-1.35D0, -1.5D0,-1.19D0,
     : -1.6D0,-0.12D0,  0.2D0, 1.79D0,    0D0,-0.88D0,-0.28D0,  0.4D0 /
      DATA (A(I),I=3298,3449) /
     : 1.11D0,  1.5D0,-1.83D0,    0D0, 0.56D0,-0.12D0,  0.1D0,-1.27D0,
     : -1.4D0,    0D0,    0D0, 1.15D0,  1.5D0,-0.12D0,  0.2D0, 1.11D0,
     :  1.5D0, 0.36D0, -0.5D0,-1.07D0, -1.4D0,-1.11D0,  1.5D0, 1.67D0,
     :    0D0,  0.8D0,-1.11D0,    0D0, 1.43D0, 1.23D0, -1.3D0,-0.24D0,
     :-1.19D0, -1.3D0,-0.24D0,  0.2D0,-0.44D0, -0.9D0,-0.95D0,  1.1D0,
     : 1.07D0, -1.4D0, 1.15D0, -1.3D0, 1.03D0, -1.1D0,-0.56D0, -0.6D0,
     :-0.68D0,  0.9D0,-0.76D0,   -1D0,-0.24D0, -0.3D0, 0.95D0, -1.3D0,
     : 0.56D0,  0.7D0, 0.84D0, -1.1D0,-0.56D0,    0D0,-1.55D0, 0.91D0,
     : -1.3D0, 0.28D0,  0.3D0, 0.16D0, -0.2D0, 0.95D0,  1.3D0,  0.4D0,
     : -0.5D0,-0.88D0, -1.2D0, 0.95D0, -1.1D0,-0.48D0, -0.5D0,    0D0,
     :    0D0,-1.07D0,  1.2D0, 0.44D0, -0.5D0, 0.95D0,  1.1D0,    0D0,
     :    0D0, 0.92D0, -1.3D0, 0.95D0,    1D0,-0.52D0,  0.6D0, 1.59D0,
     : 0.24D0, -0.4D0, 0.91D0,  1.2D0, 0.84D0, -1.1D0,-0.44D0, -0.6D0,
     : 0.84D0,  1.1D0,-0.44D0,  0.6D0,-0.44D0,  0.6D0,-0.84D0, -1.1D0,
     : -0.8D0,    0D0, 1.35D0, 0.76D0,  0.2D0,-0.91D0,   -1D0,  0.2D0,
     : -0.3D0,-0.91D0, -1.2D0,-0.95D0,    1D0,-0.48D0, -0.5D0, 0.88D0,
     :    1D0, 0.48D0, -0.5D0,-0.95D0, -1.1D0,  0.2D0, -0.2D0,-0.99D0,
     :  1.1D0,-0.84D0,  1.1D0,-0.24D0, -0.3D0,  0.2D0, -0.3D0, 0.84D0,
     :  1.1D0,-1.39D0,    0D0,-0.28D0,-0.16D0,  0.2D0, 0.84D0,  1.1D0 /
      DATA (A(I),I=3450,3601) /
     :    0D0,    0D0, 1.39D0,    0D0,    0D0,-0.95D0,    1D0, 1.35D0,
     :-0.99D0,    0D0, 0.88D0,-0.52D0,    0D0,-1.19D0,  0.2D0,  0.2D0,
     : 0.76D0,   -1D0,    0D0,    0D0, 0.76D0,    1D0,    0D0,    0D0,
     : 0.76D0,    1D0,-0.76D0,    1D0,    0D0,    0D0, 1.23D0, 0.76D0,
     :  0.8D0,-0.32D0,  0.4D0,-0.72D0,  0.8D0, -0.4D0, -0.4D0,    0D0,
     :    0D0, -0.8D0, -0.9D0,-0.68D0,  0.9D0,-0.16D0, -0.2D0,-0.16D0,
     : -0.2D0, 0.68D0, -0.9D0,-0.36D0,  0.5D0,-0.56D0, -0.8D0, 0.72D0,
     : -0.9D0, 0.44D0, -0.6D0,-0.48D0, -0.7D0,-0.16D0,    0D0,-1.11D0,
     : 0.32D0,    0D0,-1.07D0,  0.6D0, -0.8D0,-0.28D0, -0.4D0,-0.64D0,
     :    0D0, 0.91D0, 1.11D0, 0.64D0, -0.9D0, 0.76D0, -0.8D0,    0D0,
     :    0D0,-0.76D0, -0.8D0, 1.03D0,    0D0,-0.36D0,-0.64D0, -0.7D0,
     : 0.36D0, -0.4D0, 1.07D0, 0.36D0, -0.5D0,-0.52D0, -0.7D0,  0.6D0,
     :    0D0, 0.88D0, 0.95D0,    0D0, 0.48D0, 0.16D0, -0.2D0,  0.6D0,
     :  0.8D0, 0.16D0, -0.2D0, -0.6D0, -0.8D0,    0D0,   -1D0, 0.12D0,
     :  0.2D0, 0.16D0, -0.2D0, 0.68D0,  0.7D0, 0.59D0, -0.8D0,-0.99D0,
     :-0.56D0, -0.6D0, 0.36D0, -0.4D0,-0.68D0, -0.7D0,-0.68D0, -0.7D0,
     :-0.36D0, -0.5D0,-0.44D0,  0.6D0, 0.64D0,  0.7D0,-0.12D0,  0.1D0,
     :-0.52D0,  0.6D0, 0.36D0,  0.4D0,    0D0,    0D0, 0.95D0,-0.84D0,
     :    0D0, 0.44D0, 0.56D0,  0.6D0, 0.32D0, -0.3D0,    0D0,    0D0 /
      DATA (A(I),I=3602,3753) /
     :  0.6D0,  0.7D0,    0D0,    0D0,  0.6D0,  0.7D0,-0.12D0, -0.2D0,
     : 0.52D0, -0.7D0,    0D0,    0D0, 0.56D0,  0.7D0,-0.12D0,  0.1D0,
     :-0.52D0, -0.7D0,    0D0,    0D0, 0.88D0,-0.76D0,    0D0,-0.44D0,
     :    0D0,    0D0,-0.52D0, -0.7D0, 0.52D0, -0.7D0, 0.36D0, -0.4D0,
     :-0.44D0, -0.5D0,    0D0,    0D0,  0.6D0,  0.6D0, 0.84D0,    0D0,
     : 0.12D0,-0.24D0,    0D0,  0.8D0,-0.56D0,  0.6D0,-0.32D0, -0.3D0,
     : 0.48D0, -0.5D0, 0.28D0, -0.3D0,-0.48D0, -0.5D0, 0.12D0,  0.2D0,
     : 0.48D0, -0.6D0, 0.48D0,  0.6D0,-0.12D0,  0.2D0, 0.24D0,    0D0,
     : 0.76D0,-0.52D0, -0.6D0,-0.52D0,  0.6D0, 0.48D0, -0.5D0,-0.24D0,
     : -0.3D0, 0.12D0, -0.1D0, 0.48D0,  0.6D0, 0.52D0, -0.2D0, 0.36D0,
     :  0.4D0,-0.44D0,  0.5D0,-0.24D0, -0.3D0,-0.48D0, -0.6D0,-0.44D0,
     : -0.6D0,-0.12D0,  0.1D0, 0.76D0, 0.76D0,  0.2D0, -0.2D0, 0.48D0,
     :  0.5D0,  0.4D0, -0.5D0,-0.24D0, -0.3D0, 0.44D0, -0.6D0, 0.44D0,
     : -0.6D0, 0.36D0,    0D0,-0.64D0, 0.72D0,    0D0,-0.12D0,    0D0,
     : -0.1D0, -0.4D0, -0.6D0, -0.2D0, -0.2D0,-0.44D0,  0.5D0,-0.44D0,
     :  0.5D0,  0.2D0,  0.2D0,-0.44D0, -0.5D0,  0.2D0, -0.2D0, -0.2D0,
     :  0.2D0,-0.44D0, -0.5D0, 0.64D0,    0D0, 0.32D0,-0.36D0,  0.5D0,
     : -0.2D0, -0.3D0, 0.12D0, -0.1D0, 0.48D0,  0.5D0,-0.12D0,  0.3D0,
     :-0.36D0, -0.5D0,    0D0,    0D0, 0.48D0,  0.5D0,-0.48D0,  0.5D0 /
      DATA (A(I),I=3754,3905) /
     : 0.68D0,    0D0,-0.12D0, 0.56D0, -0.4D0, 0.44D0, -0.5D0,-0.12D0,
     : -0.1D0, 0.24D0,  0.3D0, -0.4D0,  0.4D0, 0.64D0,    0D0,-0.24D0,
     : 0.64D0,    0D0, -0.2D0,    0D0,    0D0, 0.44D0, -0.5D0, 0.44D0,
     :  0.5D0,-0.12D0,  0.2D0,-0.36D0, -0.5D0, 0.12D0,    0D0, 0.64D0,
     : -0.4D0,  0.5D0,    0D0,  0.1D0,    0D0,    0D0, -0.4D0,  0.5D0,
     :    0D0,    0D0, -0.4D0, -0.5D0, 0.56D0,    0D0, 0.28D0,    0D0,
     :  0.1D0, 0.36D0,  0.5D0,    0D0, -0.1D0, 0.36D0, -0.5D0, 0.36D0,
     :  0.5D0,    0D0, -0.1D0, 0.24D0, -0.2D0,-0.36D0, -0.4D0, 0.16D0,
     :  0.2D0,  0.4D0, -0.4D0,    0D0,    0D0,-0.36D0, -0.5D0,-0.36D0,
     : -0.5D0,-0.32D0, -0.5D0,-0.12D0,  0.1D0,  0.2D0,  0.2D0,-0.36D0,
     :  0.4D0, -0.6D0,  0.6D0, 0.28D0,    0D0, 0.52D0, 0.12D0, -0.1D0,
     :  0.4D0,  0.4D0,    0D0, -0.5D0,  0.2D0, -0.2D0,-0.32D0,  0.4D0,
     : 0.16D0,  0.2D0,-0.16D0,  0.2D0, 0.32D0,  0.4D0, 0.56D0,    0D0,
     :-0.12D0, 0.32D0, -0.4D0,-0.16D0, -0.2D0,    0D0,    0D0,  0.4D0,
     :  0.4D0, -0.4D0, -0.4D0, -0.4D0,  0.4D0,-0.36D0,  0.4D0, 0.12D0,
     :  0.1D0,    0D0,  0.1D0, 0.36D0,  0.4D0,    0D0, -0.1D0, 0.36D0,
     :  0.4D0,-0.36D0,  0.4D0,    0D0,  0.1D0, 0.32D0,    0D0, 0.44D0,
     : 0.12D0,  0.2D0, 0.28D0, -0.4D0,    0D0,    0D0, 0.36D0,  0.4D0,
     : 0.32D0, -0.4D0,-0.16D0, 0.12D0,  0.1D0, 0.32D0, -0.4D0,  0.2D0 /
      DATA (A(I),I=3906,4057) /
     :  0.3D0,-0.24D0,  0.3D0,    0D0,  0.1D0, 0.32D0,  0.4D0,    0D0,
     : -0.1D0,-0.32D0, -0.4D0,-0.32D0,  0.4D0,    0D0,  0.1D0,-0.52D0,
     :-0.52D0, 0.52D0, 0.32D0, -0.4D0,    0D0,    0D0, 0.32D0,  0.4D0,
     : 0.32D0, -0.4D0,    0D0,    0D0,-0.32D0, -0.4D0,-0.32D0,  0.4D0,
     : 0.32D0,  0.4D0,    0D0,    0D0, 0.32D0,  0.4D0,    0D0,    0D0,
     :-0.32D0, -0.4D0,    0D0,    0D0, 0.32D0,  0.4D0, 0.16D0,  0.2D0,
     : 0.32D0, -0.3D0,-0.16D0,    0D0,-0.48D0, -0.2D0,  0.2D0,-0.28D0,
     : -0.3D0, 0.28D0, -0.4D0,    0D0,    0D0, 0.28D0, -0.4D0,    0D0,
     :    0D0, 0.28D0, -0.4D0,    0D0,    0D0,-0.28D0, -0.4D0, 0.28D0,
     :  0.4D0,-0.28D0, -0.4D0,-0.48D0, -0.2D0,  0.2D0, 0.24D0,  0.3D0,
     : 0.44D0,    0D0, 0.16D0, 0.24D0,  0.3D0, 0.16D0, -0.2D0, 0.24D0,
     :  0.3D0,-0.12D0,  0.2D0,  0.2D0,  0.3D0,-0.16D0,  0.2D0,    0D0,
     :    0D0, 0.44D0,-0.32D0,  0.3D0, 0.24D0,    0D0,-0.36D0, 0.36D0,
     :    0D0, 0.24D0, 0.12D0, -0.2D0,  0.2D0,  0.3D0,-0.12D0,    0D0,
     :-0.28D0,  0.3D0,-0.24D0,  0.3D0, 0.12D0,  0.1D0,-0.28D0, -0.3D0,
     :-0.28D0,  0.3D0,    0D0,    0D0,-0.28D0, -0.3D0,    0D0,    0D0,
     :-0.28D0, -0.3D0,    0D0,    0D0, 0.28D0,  0.3D0,    0D0,    0D0,
     :-0.28D0, -0.3D0,-0.28D0,  0.3D0,    0D0,    0D0,-0.28D0, -0.3D0,
     :    0D0,    0D0, 0.28D0,  0.3D0,    0D0,    0D0,-0.28D0,  0.3D0 /
      DATA (A(I),I=4058,4209) /
     : 0.28D0, -0.3D0,-0.28D0,  0.3D0,  0.4D0,  0.4D0,-0.24D0,  0.3D0,
     :    0D0, -0.1D0, 0.16D0,    0D0, 0.36D0, -0.2D0,  0.3D0,-0.12D0,
     : -0.1D0,-0.24D0, -0.3D0,    0D0,    0D0,-0.24D0,  0.3D0,-0.24D0,
     :  0.3D0,    0D0,    0D0,-0.24D0,  0.3D0,-0.24D0,  0.3D0, 0.24D0,
     : -0.3D0,    0D0,    0D0, 0.24D0, -0.3D0,    0D0,    0D0, 0.24D0,
     :  0.3D0, 0.24D0, -0.3D0, 0.24D0,  0.3D0,-0.24D0,  0.3D0,-0.24D0,
     :  0.3D0, -0.2D0,  0.2D0,-0.16D0, -0.2D0,    0D0,    0D0,-0.32D0,
     :  0.2D0,    0D0,  0.1D0,  0.2D0, -0.3D0,  0.2D0, -0.2D0, 0.12D0,
     :  0.2D0,-0.16D0,  0.2D0, 0.16D0,  0.2D0,  0.2D0,  0.3D0,  0.2D0,
     :  0.3D0,    0D0,    0D0, -0.2D0,  0.3D0,    0D0,    0D0,  0.2D0,
     :  0.3D0, -0.2D0, -0.3D0, -0.2D0, -0.3D0,  0.2D0, -0.3D0,    0D0,
     :    0D0,  0.2D0,  0.3D0,    0D0,    0D0,  0.2D0,  0.3D0,    0D0,
     :    0D0,  0.2D0,  0.3D0,    0D0,    0D0,  0.2D0,  0.3D0,    0D0,
     :    0D0,  0.2D0, -0.3D0,    0D0,    0D0, -0.2D0, -0.3D0,    0D0,
     :    0D0, -0.2D0,  0.3D0,    0D0,    0D0, -0.2D0,  0.3D0,    0D0,
     :    0D0, 0.36D0,    0D0,    0D0, 0.36D0, 0.12D0,  0.1D0,-0.24D0,
     :  0.2D0, 0.12D0, -0.2D0,-0.16D0, -0.2D0,-0.13D0,  0.1D0, 0.22D0,
     : 0.21D0,  0.2D0,    0D0,-0.28D0, 0.32D0,    0D0,-0.12D0, -0.2D0,
     : -0.2D0, 0.12D0, -0.1D0, 0.12D0,  0.1D0, -0.2D0,  0.2D0,    0D0 /
      DATA (A(I),I=4210,4361) /
     :    0D0,-0.32D0, 0.32D0,    0D0,    0D0, 0.32D0, 0.32D0,    0D0,
     :    0D0,-0.24D0, -0.2D0, 0.24D0,  0.2D0,  0.2D0,    0D0,-0.24D0,
     :    0D0,    0D0,-0.24D0, -0.2D0,    0D0,    0D0, 0.24D0,  0.2D0,
     :-0.24D0, -0.2D0,    0D0,    0D0,-0.24D0,  0.2D0, 0.16D0, -0.2D0,
     : 0.12D0,  0.1D0,  0.2D0,  0.2D0,    0D0, -0.1D0,-0.12D0,  0.1D0,
     :-0.16D0, -0.2D0,-0.12D0, -0.1D0,-0.16D0,  0.2D0,  0.2D0,  0.2D0,
     :    0D0,    0D0, -0.2D0,  0.2D0, -0.2D0,  0.2D0, -0.2D0,  0.2D0,
     : -0.2D0,  0.2D0,  0.2D0, -0.2D0, -0.2D0, -0.2D0,    0D0,    0D0,
     : -0.2D0,  0.2D0,  0.2D0,    0D0, -0.2D0,    0D0,    0D0, -0.2D0,
     :  0.2D0, -0.2D0,  0.2D0, -0.2D0, -0.2D0, -0.2D0, -0.2D0,    0D0,
     :    0D0,  0.2D0,  0.2D0,  0.2D0,  0.2D0, 0.12D0, -0.2D0,-0.12D0,
     : -0.1D0, 0.28D0,-0.28D0, 0.16D0, -0.2D0,    0D0, -0.1D0,    0D0,
     :  0.1D0,-0.16D0,  0.2D0,    0D0, -0.1D0,-0.16D0, -0.2D0,    0D0,
     : -0.1D0, 0.16D0, -0.2D0, 0.16D0, -0.2D0,    0D0,    0D0, 0.16D0,
     :  0.2D0,-0.16D0,  0.2D0,    0D0,    0D0, 0.16D0,  0.2D0, 0.16D0,
     : -0.2D0, 0.16D0, -0.2D0,-0.16D0,  0.2D0, 0.16D0, -0.2D0,    0D0,
     :    0D0, 0.16D0,  0.2D0,    0D0,    0D0, 0.16D0,  0.2D0,    0D0,
     :    0D0,-0.16D0, -0.2D0, 0.16D0, -0.2D0,-0.16D0, -0.2D0,    0D0,
     :    0D0,-0.16D0, -0.2D0,    0D0,    0D0,-0.16D0,  0.2D0,    0D0 /
      DATA (A(I),I=4362,4513) /
     :    0D0, 0.16D0, -0.2D0, 0.16D0,  0.2D0, 0.16D0,  0.2D0,    0D0,
     :    0D0,-0.16D0, -0.2D0,    0D0,    0D0,-0.16D0, -0.2D0,    0D0,
     :    0D0, 0.16D0,  0.2D0, 0.16D0,  0.2D0,    0D0,    0D0, 0.16D0,
     :  0.2D0, 0.16D0, -0.2D0, 0.16D0,  0.2D0,    0D0,    0D0,-0.16D0,
     :  0.2D0,    0D0,  0.1D0, 0.12D0, -0.2D0, 0.12D0, -0.2D0,    0D0,
     : -0.1D0,    0D0, -0.1D0, 0.12D0,  0.2D0,    0D0, -0.1D0,-0.12D0,
     :  0.2D0,-0.15D0,  0.2D0,-0.24D0, 0.24D0,    0D0,    0D0, 0.24D0,
     : 0.24D0, 0.12D0, -0.2D0,-0.12D0, -0.2D0,    0D0,    0D0, 0.12D0,
     :  0.2D0, 0.12D0, -0.2D0, 0.12D0,  0.2D0, 0.12D0,  0.2D0, 0.12D0,
     :  0.2D0, 0.12D0, -0.2D0,-0.12D0,  0.2D0,    0D0,    0D0, 0.12D0,
     :  0.2D0, 0.12D0,    0D0, -0.2D0,    0D0,    0D0,-0.12D0, -0.2D0,
     : 0.12D0, -0.2D0,    0D0,    0D0, 0.12D0,  0.2D0,-0.12D0,  0.2D0,
     :-0.12D0,  0.2D0, 0.12D0, -0.2D0,    0D0,    0D0, 0.12D0,  0.2D0,
     :  0.2D0,    0D0, 0.12D0,    0D0,    0D0,-0.12D0,  0.2D0,    0D0,
     :    0D0,-0.12D0, -0.2D0,    0D0,    0D0,-0.12D0, -0.2D0,-0.12D0,
     : -0.2D0,    0D0,    0D0, 0.12D0, -0.2D0, 0.12D0, -0.2D0, 0.12D0,
     :  0.2D0,-0.12D0, -0.2D0,    0D0,    0D0, 0.12D0, -0.2D0, 0.12D0,
     : -0.2D0, 0.12D0,  0.2D0, 0.12D0,    0D0,  0.2D0,-0.12D0, -0.2D0,
     :    0D0,    0D0, 0.12D0,  0.2D0,-0.16D0,    0D0, 0.16D0, -0.2D0 /
      DATA (A(I),I=4514,4665) /
     :  0.2D0,    0D0,    0D0, -0.2D0,    0D0,    0D0, -0.2D0,  0.2D0,
     :    0D0,    0D0,  0.2D0,  0.2D0, -0.2D0,    0D0,    0D0, -0.2D0,
     : 0.12D0,    0D0,-0.16D0,  0.2D0,    0D0,    0D0,  0.2D0, 0.12D0,
     : -0.1D0,    0D0,  0.1D0, 0.16D0,-0.16D0,-0.16D0,-0.16D0,-0.16D0,
     :-0.16D0,    0D0,    0D0,-0.16D0,    0D0,    0D0,-0.16D0,-0.16D0,
     :-0.16D0,    0D0,    0D0,-0.16D0,    0D0,    0D0, 0.16D0,    0D0,
     :    0D0, 0.16D0,    0D0,    0D0, 0.16D0, 0.16D0,    0D0,    0D0,
     :-0.16D0,    0D0,    0D0,-0.16D0,-0.16D0,    0D0,    0D0, 0.16D0,
     :    0D0,    0D0,-0.16D0,-0.16D0,    0D0,    0D0,-0.16D0,-0.16D0,
     : 0.12D0,  0.1D0, 0.12D0, -0.1D0, 0.12D0,  0.1D0,    0D0,    0D0,
     : 0.12D0,  0.1D0,-0.12D0,  0.1D0,    0D0,    0D0, 0.12D0,  0.1D0,
     : 0.12D0, -0.1D0,    0D0,    0D0,-0.12D0, -0.1D0,    0D0,    0D0,
     : 0.12D0,  0.1D0, 0.12D0,    0D0,    0D0, 0.12D0,    0D0,    0D0,
     :-0.12D0,    0D0,    0D0, 0.12D0, 0.12D0, 0.12D0, 0.12D0, 0.12D0,
     :    0D0,    0D0, 0.12D0,    0D0,    0D0, 0.12D0, 0.12D0,    0D0,
     :    0D0, 0.12D0,    0D0,    0D0, 0.12D0,-0.12D0,-0.12D0, 0.12D0,
     : 0.12D0,-0.12D0,-0.12D0,    0D0,    0D0, 0.12D0,-0.12D0, 0.12D0,
     : 0.12D0,-0.12D0,-0.12D0,    0D0,    0D0,-0.12D0,-0.12D0,    0D0,
     :    0D0,-0.12D0, 0.12D0,    0D0,    0D0, 0.12D0,    0D0,    0D0 /
      DATA (A(I),I=4666,NA) /
     : 0.12D0,    0D0,    0D0, 0.12D0,-0.12D0,    0D0,    0D0,-0.12D0,
     : 0.12D0,-0.12D0,-0.12D0, 0.12D0,    0D0,    0D0, 0.12D0, 0.12D0,
     : 0.12D0,-0.12D0,    0D0,    0D0,-0.12D0,-0.12D0,-0.12D0,    0D0,
     :    0D0,-0.12D0,-0.12D0,    0D0,    0D0, 0.12D0, 0.12D0,    0D0,
     :    0D0,-0.12D0,-0.12D0,-0.12D0,-0.12D0, 0.12D0,    0D0,    0D0,
     : 0.12D0,-0.12D0,    0D0,    0D0,-0.12D0,-0.12D0,    0D0,    0D0,
     : 0.12D0,-0.12D0,-0.12D0,-0.12D0,-0.12D0, 0.12D0, 0.12D0,-0.12D0,
     :-0.12D0,    0D0,    0D0,-0.12D0,    0D0,    0D0,-0.12D0, 0.12D0,
     :    0D0,    0D0, 0.12D0,    0D0,    0D0,-0.12D0,-0.12D0,    0D0,
     :    0D0,-0.12D0,-0.12D0, 0.12D0,    0D0,    0D0, 0.12D0, 0.12D0,
     :    0D0,    0D0, 0.12D0,    0D0,    0D0, 0.12D0, 0.12D0, 0.08D0,
     :    0D0, 0.04D0 /

*  Amplitude usage: X or Y, sin or cos, power of T.
      DATA JAXY / 0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1 /
      DATA JASC / 0,1,1,0,1,0,0,1,0,1,1,0,1,0,0,1,0,1,1,0 /
      DATA JAPT / 0,0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4 /

* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

*  Interval between fundamental date J2000.0 and given date (JC).
      T = ( ( DATE1-DJ00 ) + DATE2 ) / DJC

*  Powers of T.
      W = 1D0
      DO 1 JPT=0,MAXPT
         PT(JPT) = W
         W = W*T
 1    CONTINUE

*
*  Luni-solar fundamental (Delaunay) arguments (IERS 2003)
*

*  Mean anomaly of the Moon.
      FA(1) = iau_FAL03 ( T )

*  Mean anomaly of the Sun.
      FA(2) = iau_FALP03 ( T )

*  Mean argument of the latitude of the Moon.
      FA(3) = iau_FAF03 ( T )

*  Mean elongation of the Moon from the Sun.
      FA(4) = iau_FAD03 ( T )

*  Mean longitude of the ascending node of the Moon.
      FA(5) = iau_FAOM03 ( T )

*  Planetary longitudes, Mercury through Neptune.
      FA(6)  = iau_FAME03 ( T )
      FA(7)  = iau_FAVE03 ( T )
      FA(8)  = iau_FAE03 ( T )
      FA(9)  = iau_FAMA03 ( T )
      FA(10) = iau_FAJU03 ( T )
      FA(11) = iau_FASA03 ( T )
      FA(12) = iau_FAUR03 ( T )
      FA(13) = iau_FANE03 ( T )

*  General accumulated precession in longitude.
      FA(14) = iau_FAPA03 ( T )

*  --------------------------------------
*  Polynomial part of precession-nutation
*  --------------------------------------

      DO 3 JXY=0,1
         XYPR(JXY) = 0D0
         DO 2 J=MAXPT,0,-1
            XYPR(JXY) = XYPR(JXY) + XYP(J,JXY)*PT(J)
 2       CONTINUE
 3    CONTINUE

*  ----------------------------------
*  Nutation periodic terms, planetary
*  ----------------------------------

*  Initialize totals in X and Y.
      DO 4 JXY=0,1
         XYPL(JXY) = 0D0
 4    CONTINUE

*  Work backwards through the coefficients per frequency list.
      IALAST = NA
      DO 7 IFREQ=NFPL,1,-1

*     Obtain the argument functions.
         ARG = 0D0
         DO 5 I=1,14
            M = MFAPL(I,IFREQ)
            IF ( M.NE.0 ) ARG = ARG + DBLE(M)*FA(I)
 5       CONTINUE
         SC(0) = SIN(ARG)
         SC(1) = COS(ARG)

*     Work backwards through the amplitudes at this frequency.
         IA = NC(IFREQ+NFLS)
         DO 6 I=IALAST,IA,-1

*        Coefficient number (0 = 1st).
            J = I-IA

*        X or Y.
            JXY = JAXY(J)

*        Sin or cos.
            JSC = JASC(J)

*        Power of T.
            JPT = JAPT(J)

*        Accumulate the component.
            XYPL(JXY) = XYPL(JXY) + A(I)*SC(JSC)*PT(JPT)
 6       CONTINUE
         IALAST = IA-1
 7    CONTINUE

*  -----------------------------------
*  Nutation periodic terms, luni-solar
*  -----------------------------------

*  Initialize totals in X and Y.
      DO 8 JXY=0,1
         XYLS(JXY) = 0D0
 8    CONTINUE

*  Continue working backwards through the number of coefficients list.
      DO 11 IFREQ=NFLS,1,-1

*     Obtain the argument functions.
         ARG = 0D0
         DO 9 I=1,5
            M = MFALS(I,IFREQ)
            IF ( M.NE.0 ) ARG = ARG + DBLE(M)*FA(I)
 9       CONTINUE
         SC(0) = SIN(ARG)
         SC(1) = COS(ARG)

*     Work backwards through the amplitudes at this frequency.
         IA = NC(IFREQ)
         DO 10 I=IALAST,IA,-1

*        Coefficient number (0 = 1st).
            J = I-IA

*        X or Y.
            JXY = JAXY(J)

*        Sin or cos.
            JSC = JASC(J)

*        Power of T.
            JPT = JAPT(J)

*        Accumulate the component.
            XYLS(JXY) = XYLS(JXY) + A(I)*SC(JSC)*PT(JPT)
 10      CONTINUE
         IALAST = IA-1
 11   CONTINUE

*  -------
*  Results
*  -------

*  CIP unit vector components.
      X = DAS2R * ( XYPR(0) + ( XYLS(0) + XYPL(0) )/1D6 )
      Y = DAS2R * ( XYPR(1) + ( XYLS(1) + XYPL(1) )/1D6 )

*  Finished.

*+----------------------------------------------------------------------
*
*  Copyright (C) 2015
*  Standards Of Fundamental Astronomy Board
*  of the International Astronomical Union.
*
*  =====================
*  SOFA Software License
*  =====================
*
*  NOTICE TO USER:
*
*  BY USING THIS SOFTWARE YOU ACCEPT THE FOLLOWING SIX TERMS AND
*  CONDITIONS WHICH APPLY TO ITS USE.
*
*  1. The Software is owned by the IAU SOFA Board ("SOFA").
*
*  2. Permission is granted to anyone to use the SOFA software for any
*     purpose, including commercial applications, free of charge and
*     without payment of royalties, subject to the conditions and
*     restrictions listed below.
*
*  3. You (the user) may copy and distribute SOFA source code to others,
*     and use and adapt its code and algorithms in your own software,
*     on a world-wide, royalty-free basis.  That portion of your
*     distribution that does not consist of intact and unchanged copies
*     of SOFA source code files is a "derived work" that must comply
*     with the following requirements:
*
*     a) Your work shall be marked or carry a statement that it
*        (i) uses routines and computations derived by you from
*        software provided by SOFA under license to you; and
*        (ii) does not itself constitute software provided by and/or
*        endorsed by SOFA.
*
*     b) The source code of your derived work must contain descriptions
*        of how the derived work is based upon, contains and/or differs
*        from the original SOFA software.
*
*     c) The names of all routines in your derived work shall not
*        include the prefix "iau" or "sofa" or trivial modifications
*        thereof such as changes of case.
*
*     d) The origin of the SOFA components of your derived work must
*        not be misrepresented;  you must not claim that you wrote the
*        original software, nor file a patent application for SOFA
*        software or algorithms embedded in the SOFA software.
*
*     e) These requirements must be reproduced intact in any source
*        distribution and shall apply to anyone to whom you have
*        granted a further right to modify the source code of your
*        derived work.
*
*     Note that, as originally distributed, the SOFA software is
*     intended to be a definitive implementation of the IAU standards,
*     and consequently third-party modifications are discouraged.  All
*     variations, no matter how minor, must be explicitly marked as
*     such, as explained above.
*
*  4. You shall not cause the SOFA software to be brought into
*     disrepute, either by misuse, or use for inappropriate tasks, or
*     by inappropriate modification.
*
*  5. The SOFA software is provided "as is" and SOFA makes no warranty
*     as to its use or performance.   SOFA does not and cannot warrant
*     the performance or results which the user may obtain by using the
*     SOFA software.  SOFA makes no warranties, express or implied, as
*     to non-infringement of third party rights, merchantability, or
*     fitness for any particular purpose.  In no event will SOFA be
*     liable to the user for any consequential, incidental, or special
*     damages, including any lost profits or lost savings, even if a
*     SOFA representative has been advised of such damages, or for any
*     claim by any third party.
*
*  6. The provision of any version of the SOFA software under the terms
*     and conditions specified herein does not imply that future
*     versions will also be made available under the same terms and
*     conditions.
*
*  In any published work or commercial product which uses the SOFA
*  software directly, acknowledgement (see www.iausofa.org) is
*  appreciated.
*
*  Correspondence concerning SOFA software should be addressed as
*  follows:
*
*      By email:  sofa@ukho.gov.uk
*      By post:   IAU SOFA Center
*                 HM Nautical Almanac Office
*                 UK Hydrographic Office
*                 Admiralty Way, Taunton
*                 Somerset, TA1 2DN
*                 United Kingdom
*
*-----------------------------------------------------------------------

      END
